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Introducao 


A evolugao tecnologica, principalmente na area da Informatica, 
esta alterando profundamente a rotina de trabalho de quase todos 
os tipos de profissionais, notadamente os da area administrativa. 

E compreensivel, portanto, que grande numero de pessoas se 
envoiva diretamente com computadores ou at£ mesmo adquira 
urn, sem ter informagoes basicas minimas. 

Por outro lado, minha experiencia como professor mostrou-me 
currfculos escolares muito pobres em Informatica. Alie-se a isto a 
existencia de material didatico pouco objetivo, incompleto e 
irrsuficiente para o leigo que comega a trilhar os diffceis caminhos 
do aprendizado. 

Estas constatagoes levaram-me a eiaborar este trabalho, que tern 
duas grandes pretensoes: auxiliar o profissional e proporcionar as 
bases para o uso do micro. 

Todo o trabalho esta voltado para os micros de logica Sinclair que, 
embora considerados como "o primo pobre", alinham diversas 
vantagens e uma enorme virtude: a de permitir um 
relacionamento muito mtimo entre o micro e usuario, muito 
diverso do oferecido por equipamentos de maior porte. 

Pretendo ocupar nossos micros nao so com jogos mas dar-lhes 
tamb^m utilidade profissional. O pessoal da area de 
administragao podera verificar entao como seus instrumentos, 
manipulados tradicionalmente sob outra roupagem, podem ser 
confiados ao micro. 




Sumario 


PRECO DE VENDA, 13 

Permite tanto o calculo do prego de venda de urn produto como 
tambem a alteragao de qualquer dos dados informados sem 
destruir os outros, gerando automaticamente o novo prego. 
Possibilita simulates muito uteis. 

Mem6ria necessaria: 16 KB. 

CALCULO DE FORMULAS, 17 . 

Permite a guarda e manipulagao de ate 18 matbrias-primas e ate 
18 fbrmulas com atb 10 componentes cada, utilizaveis para o 
calculo automation do prego de custo de qualquer produto cuja 
fbrmula tenha sido armazenada. Complementa o programa 


anterior. 

Memoria necessaria: 16 KB. 


PONTO DE EQUILIBRIO, 30 

Programa escrito para permitir a manipulagao das informagoes 
para o calculo da situagao frente a estes dados; permite calcular a 
quantidade para o equilibrio e traga o grafico do ponto de 
equilibrio. Possibilita simulagoes sem destruir os dados 

armazenados. 

Memoria necessaria: 16 KB. 


LOTE ECONOMICO, 35 

Permite o calculo do lote economico de compra a partir dos 
dados relativos a uma materia-prima. Memoria necessaria; 1 KB. 


QUILOMETRAGEM, 38 

Bastante flexivel, permite o calculo do custo do quilometro 
rodado para qualquer autombvel. Membria necessaria: 16 KB. 


UtHizavel para a totalizagao dos dados relativos a uma pesquisa 
de opiniao com atb 20 perguntas de ate cinco opgoes cada. 
Preve a existencia de uma nao-resposta para cada pergunta (nao 
respondeu). Produz a tabulagao dos resultados. 

Memoria necessaria: 16 KB. 


grAfico I, 51 

Apresenta um grafico de colunas para uma serie de ate 15 
eventos. Memoria necessaria: 1 KB. 

GRAFICO II, 53 

Produz um grafico de colunas para uma serie de ate 30 dados. 
Memoria necessaria: 1 KB. 

ESTATISTICA, 55 

Permite a implanta^ao de um conjunto de ate cinco series 
estatisticas com ate 12 elementos, podendo estes dados ser 
alterados, atualizados (inclusao de um novo dado, abandonando- 
se o mais antigo) e produz um grafico de colunas com os dados 
de qualquer uma das series. 

Memoria necessaria: 16 KB. 

anAlise EMPRESARIAL, 62 

Programa que analisa seis indices fundamentals de um balango. 
Bastante pratico sem ser demasiado simplificado. 

Memoria necessaria: 16 KB. 

anAlise DE BALAN^O,* 66 

Texto auxiliar para entender os tres programas na sequencia. 

anAlise financeira, 70 

Programa que permite o calculo de cinco indices financeiros 
relativos ao balango de uma empresa, emitindo pareceres 
conforme os indices apurados. 

Memoria necessaria: 16 KB. 

anAlise patrimonial, 82 

Produz cinco indices relativos & situa^ao patrimonial de uma 
empresa, incluindo pareceres tecnicos relativos a situagao 
encontrada. 

Memoria necessaria: 16 KB. 

anAlise economica, 93 

Programa que calcula tres indices economicos com rela^ao aos 
dois ultimos balangos da empresa, determinando a evolugao dos 
mesmos. 

Memoria necessaria: 16 KB. 



FIN I, 101 

Calcula o montante a partir do principal. 

Memoria necessaria: 1 KB. 

FIN II, 103 

Calcula o principal a partir do montante. 

Memoria necesaria: 1 KB. 

FIN III, 105 

Calcula a prestagao a partir do montante. 

Memoria necessaria: 1 KB. 

FIN IV, 107 • • i 

Calcula a prestagao a partir do principal. 

Memoria necessaria: 1 KB. 

FIN V, 109 

Calcula o montante a partir da prestagao. 

Memoria necessaria: 1 KB. 

F!NV1, 111 ^ 

Calcula o principal a partir da prestagao. 

Memoria necessaria: 1 KB. 

Calcula todos os valores calculaveis a partir dos programas FIN I, 
FIN II, FIN III, FIN IV e FIN VI. 

Memoria necessaria: 16 KB. 

CalSH ollb^preslnte de urn fluxo de caixa de ate 12 perfodos. 
Memoria necessaria: 1 KB. 

PRESTACAO POR TENTATIVAS, 119 

Programa para calcular a taxa de juros de uma compra em 
preLcoes utilizando a formula do principal, para taxa est.mada, 
ate encontrar a taxa correta. E o metodo mats exato. 

Memoria necessaria: 1 KB. 

Calcula ofal'oracumulado de uma caderneta de poupanfa 
fnformando.se a estimativa de taxas de corre ? ao monetary para o 



trimestre. Capitaliza tambem os juros. 

Memoria necessaria: 1 KB. 

MONTANTE ACUMULADO, 124 
Permite o calculo de montante de uma aplica^ao apos 
determinada quantidade de penodos, capitaiizando os juros 
periodo a periodo. 

Memoria necessaria: 1 KB. 

ATRASO COMPOSTO, 126 

Caicula os juros de um capital por dias de atraso, capitalizado os 
juros dia a dia. 

Memoria necessaria: 1 KB. 

OPgAO ENTRE PAGAMENTOS, 128 

Permite o calculo da opgao mais interessante entre um 

pagamento a vista ou um pagamento daqui a "x" meses. 

Memoria necessaria: 1 KB. 

ENERGIA, 130 

Programa utilizavel para efetuar a conversao de HP, KW e WATTS, 
entre si. Seis opgoes difefentes. 

Memoria necessaria: 16 KB. 

MEDIDAS DE POTENCIA, 134 

Permite o calculo de KGM/S, WATTS e HP a partir de kg, metros e 
minutos. 

Memoria necessaria: 1 KB. 

LOGARITMO, 136 

Rotina de conversao de logaritmos neperianos em logaritmos em 
qualquer base dada. 

Memoria necessaria: 1 KB. 

ARRANJOS, 137 

Permite o calculo da quantidade de arranjos possiveis a partir de 
"x" elementos, tornados "p" a "p". 

Memoria necessaria: 1 KB. 

EXPERIENCES, 139 

Programa de estimulo a criatividade; produz uma quantidade 



infinita de padroes graficos a partir de algumas alteragoes em um 

programa basico. 

Memoria necessaria: 1 KB. 

Perm!'te a \i rodu?ao de cartoes da loto com cinco ou mais 
prognostics gerados aleatoriamente. Pausa para o guerreiro. 
Memoria necessaria: 1 KB. 

Para melhor compreensao do funcionamento de qualquer 
programa, recomendamos uma atenta leitura das explicates qu 
acompanham cada listagem bem como a analise da formula 
utilizada. 

Todas rod am tanto em SLOW como em FAST. 



Preco de Venda 


Este programa calcula o prego de venda de um produto, atraves 
da seguinte formula: 

MPu + MODu + CIFu 

P\/i r - 


100 - (IMP + DA + DF + COM + LO) 


100 

onde: PVu 

= Prego de venda unitario 

MPu 

= Custo da materia-prima, por unidade 

MODu 

= Mao-de-obra direta, por unidade 

CIFu 

= Custo indireto de fabricagao, por unidade 

IMP 

= Percentual de impostos diretos 


(ICM/PIS/FINSOCIAL) 

DA 

= Percentual de despesas administrativas a serem 


suportadas pelo produto. 

DF 

= Percentual de despesas financeiras a ser incluido 


no calculo. 

COM 

= Percentual de comissao e/ou despesas com 


vendas incidentes 

LO 

= Percentual de lucro pretendido. 


O programa exibe uma tela (vide anexo) e solicita a digitagao de 
tres items de custo em cruzeiros — ou outra moeda — e cinco 
percentuais. 

Apos terem sido informadas todas as variaveis, o "Prego de 
Venda” aparecera na ultima linha da tela. 

Neste ponto, podem-se iniciar simulagoes acessando-se qualquer 
das variaveis informadas atraves da digitagao do numero que 
precede cada item de custo. Isto permitira o recalculo, supondo- 
se a aiteragao de uma ou mais variaveis. 

Um exemplo: 

No calculo que esta no micro, foi considerada uma comissao de 
vendas de 5% e queremos saber qual sera o prego de venda caso 
fagamos uma venda direta para a qual estimamos 1% de despesas. 



Basta digitar: 7 (sete) seguido de NEW LINE ou ENTER e 
1 (urn) seguido de NEW LINE ou ENTER. 

Imediatamente, a tela exibira urn perceptual de comissao de 1% e 
o prego de venda exibira o produto do novo calculo. 

Alem dos oito itens de custo que podemos alterar, podemos 
utilizer ainda as opgoes 9-NOVO CALCULO que provocara o 
apagamento de todos os valores e habilitara nova sequence de 
informagoes e 0- FIM que encerra a execugao. 

Para copiar o programa em fita podemos digitar: GOTO 955 


CALCULO de preqo de venda 

1- MATERIA PRIMA. 

2- MAO DE OBRA DIRETA.... 

3- C. IND. FABRICACAO. 

4- IMPOSTOS. 

5- DESP. ADMINISTRATIVA. 

6- DESP. FINANCEIRA. 

7- COMISSAO. 

8- LUCRO. 


9-NOVO CALCULO 
0-FIM 


PRE^O DE VENDA. 


Listagem 

5 REM 
10 REM 
15 PRINT 


PRtCO DE VENDA 

AUTOR: LOU RIVAL KARSTEN 

“CALCULO DE PRECO DE VENDA" 


14 













20 FOR 

B = 1 TO 8 

25 GOSUB 

B * 100 

30 NEXT 

B 

65 PRINT 

AT 13,0; “9-NOVO CALCULO'' 

70 PRINT 

AT 14,0; "0-FIM" 

75 PRINT 

AT 16,0; “PRECO DE VENDA." 

80 LET 

S = P + M + C 

82 LET 

t=i+a+f+o+l 

84 LET 

T = 100 -T 

86 LET 

S = S/07100) 

88 PRINT 

AT 16,23; S; " " 

90 INPUT 

Z 

92 IF 

Z = 0 THEN GOTO 950 

94 GOSUB 

Z* 100 

96 GOTO 

80 

100 PRINT 

AT 3,0; “1-MATERIA PRIMA."; 

105 INPUT 

P 

110 PRINT 

P;" " 

115 RETURN 


200 PRINT 

AT4,0; "2-MAO DE OBRA DIRETA... 

205 INPUT 

M 

210 PRINT 

M; “ " 

215 RETURN 


300 PRINT 

AT 5,0; "3-C. FABRICACAO. 

305 INPUT 

C 

310 PRINT 

C; " “ 

315 RETURN 


400 PRINT 

AT 7,0; “4-IMP0ST0S.“; 

405 INPUT 

1 

410 PRINT 

1; “0/0" 

415 RETURN 


500 PRINT 

AT 8,0; "5-DESP. ADMINISTRATING. 

505 INPUT 

A 

510 PRINT 

A; “0/0“ 

515 RETURN 


600 PRINT 

AT 9,0; “6-DESP. FINANCEIRA. 

605 INPUT 

F 

610 PRINT 

F; “0/0" 

615 RETURN 









700 PRINT AT 10,0; "7-COMISSAO 
705 INPUT 0 
710 PRINT 0; "0/0"- 
715 RETURN 

800 PRINT AT 11,0; "8-LUCRO. 

805 INPUT L 
810 PRINT L; " 0/0" 

815 RETURN 
900 CLS 
905 GOTO 15 
950 STOP 

955 SAVE "PRECO DE VENDA" 

960 GOTO 15 
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Calculo de Formulas 


Praticamente todos os produtos comportam o calculo do seu 
custo atraves de uma planilha de custos — usualmente chamada 
de formula — onde especificam-se o tipo e a quantidade de 
componentes e unidades de trabalho necessarias a sua produ^ao. 

Caso se tenha uma grande quantidade de produtos a calcuiar e 
uma grande quantidade de componentes, o problema exige 
solugoes bastante sofisticadas; caso a quantidade de 
componentes seja pequena, assim como a quantidade de 
formulas, pode-se usar o programa a seguir descrito que realiza 
estas operates facilmente, pe'rmitindo cadastrar 18 componentes 
e 18 formulas com ate 10 componentes cada. 

O programa foi escrito para urn NEZ8000 com expansao de 16 kb 
e, portanto, pode ser utilizado sem alteragao num TK ou Sinclair. 

A primeira tela obtida pressionando-se a tecla ENTER ou NEW 
LINE e o "menu", no qual pode-se escolher a rotina de que se 
necessita. Vide tela 1 anexa. Para acessar qualquer das rotinas 
oferecidas do menu, basta digitar o numero que precede a 
mesma. 

A opgao inicial normalmente sera a rotina 1-CADASTRAR M. 
PRIMAS ou 2-CADASTRAR FORMULAS. Estas rotinas, 
principalmente a primeira, serao normalmente utilizadas apenas 
na implantagao do cadastro. 

A op^ao 1-CADASTRAR M. PRIMAS faz surgir a tela 2 (vide 
anexo), que exige a digita^ao de diversos campos, a saber: 
CODIGO - E importante para o referenciamento do componente 
nas formulas. E o codigo de indexa^ao. 

DESCRI£AO - Facilita a manipulagao das informagoes pois 
permite uma rapida identificagao do componente. 

PRE^O - Podera ser utilizado qualquer prego — seja medio, de 
estoque, de compra, futuro etc. — mas, normalmente, utiliza-se o 
pre^o atual de mercado do componente. 




UNI DADE - Para referenciar o prego, recomenda-se cadastrar 
criteriosamente a unidade de medida do componente. 

A tela 2 exige a digitagao de todos os dezoito componentes 
possiveis. Caso nao exista esta quantidade de componentes, basta 
completar o arquivo com zeros e espagos. Quando for necessario 
incluir mais componentes ou alterar algurn deles, utiliza-se a 
rotina 3-ALTERAR MAT. PRIMAS. 

A rotina 2-CADASTRAR FORMULAS permite a digitagao do 
codigo e quantidade de cada componente da formula. Utiliza-se a 
tela 3 que pode ser vista no anexo. 

Esta rotina permite a digitagao de qualquer quantidade de 
formulas ate o limite de dezoito, assim como referenciar cada 
uma com um numero qualquer de 1 a 18, em qualquer ordem. 
Um inconveniente a ser considerado e a possibilidade de gravar- 
se uma formula com um numero ja utilizado anted or mente, 
situagao em que a primeira gravagao sera destruida e substituida 
integralmente pela segunda. Ocorrerao problemas se a 
quantidade de componentes da segunda formula for menor que a 
da primeira. Recomenda-se utllizar a rotina 7-LI STAR FORMULAS 
para verifica-la. 

As variaveis a serem digitadas na tela 3 sao: 

NUMERO - da formula que servira para referenda-la no arquivo. 

A digitagao de 0 (zero) provoca o retorno a tela 1. 

NOME - do produto que serve para uma rapida identificagao do 
mesmo. 

CODIGO - da materia-prima ou componente pelo qual o mesmo 
foi cadastrado na Tabela de Componentes (tela 2). A digitagao de 
0 (zero) leva ao fechamento da formula. 

QUANTIDADE - que deve ser expressa em multiplo ou fragao — 
conforme o caso — da unidade de medida pela qual o 
componente foi cadastrado na Tabela de Componentes da tela 2. 

O fechamento da formula que tambem ocorrera apos a digitagao 
do decimo codigo leva a opgao entre S e N para voltar ao menu. 

A opgao 3-ALTERAR MAT PRIMAS provocara o aparecimento da 
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tela 4 (vide anexo) que permite, digitando-se o codigo, chamar 
qualquer componente cadastrado na Tabela de Componentes e 
oferece quatro opgoes a saber: 

0- Habilita a escolha de um novo componente. 

1 - Permite alterar a unidade de medida do componente. 

2 - Permite alterar a descrigao do componente. 

3 - Permite alterar o prego cadastrado. 

As opgoes de 1 a 3 nao sao exclusivas, podendo-se alterar todos 
os campos, caso necessario. Apenas o ©permite sair da rotina. 

A opgao 4-ALTERAR FORMULAS possibilita que se trabalhe com .a 
tela 5 (vide anexo), que permite chamar qualquer formula atraves 
do numero de cadastro da mesma. A digitagao de ©(zero) 
provoca o retorno a tela 1. 

Apos o aparecimento da chamada "LINHA?" e possfvel acessar o 
componente da formula a ser alterado. Para tanto, deve-se contar 
os componentes listados na tela, iniciando-se com 1 (um) para o 
primeiro. A digitagao de ©(zero) permite selecionar nova formula. 

Acessada a linha, escolhe-se entre tres opgoes, a saber: 

0- Para selecionar outra linha. 

1 - Para alterar o codigo do componente. 

2 - Permite alterar a quantidade do componente. 

A quinta opgao — 5-CALCULAR — provoca apenas o 
aparecimento de uma mensagem na tela, informando que a tarefa 
de calculo do custo das diversas formulas armazenadas foi 
concluido. 

Apos uma breve parada o programa volta automaticamente a tela 1. 

A sexta opgao — 6-L1STAR MAT. PRiMAS — usa a tela 6 (vide 
anexo) e iistara todos os componentes (materias-primas) 
cadastrados que estao arquivados no programa. 

Apos realizada a consulta a esta tabela, retorna-se a tela 1, 
pressionando a tecla ENTER ou NEW LINE. 

A opgao 7-LISTAR FORMULAS utiliza a tela 7 (anexa) e permite a 
listagem de qualquer formula armazenada, bastando que se digite 



o seu numero de cadastramento. A digitagao de 0 (zero) 
provocara o retorno a tela 1. 

Apos a consulta 5 formula, pode-se optar entre S (sim) para listar 
outra formula e N (nao) para retornar a tela 1. 

A penultima opgao - 8-LISTAR CUSTO FORMULAS - produzira 
a tela 8 (anexa) onde estarao listadas todas as formulas 
cadastradas com o seu respectivo custo, calculado de acordo com 
os componentes atribufdos a cada formula. 

O uso da tecla ENTER ou NEW LINE provocara o retorno a tela 1. 

A ultima opgao - 9-FIM - apenas produzira uma mensagem de 
advertencia e provocara o encerramento da operagao do 
programa. 

Uma observagao importantfssima e a de que, apos a primeira 
utilizagao do programa e consequente gravagao de dados que 
devam permanecer permanentemente, sempre deve-se utilizar o 
comando GOTO 21 no lugar do comando RUN. O uso do 
comando RUN sera desastroso, pois esvaziara o conteudo dos 
arquivos. 

Igualmente, sempre que houver atualizagao de pregos, alteragoes 
de formulas ou componentes ou apenas calculo atualizado dos 
custos das formulas, devera ser feita uma nova copia do programa 
para preservar as informagoes. O esquecimento desta advertencia 
provocara a perda de todo o trabalho realizado. 

1 7 S 

OPCOES; 

1- CADASTRAR M. PRIMAS 

2- CADASTRAR FORMULAS 

3- ALTERAR MAT. PRIMAS 

4- ALTERAR FORMULAS 

5- CALCULAR 

6- LISTAR MAT. PRIMAS 

7- LISTAR FORMULAS 

8- LISTAR CUSTO FORMULAS 

9- FIM j 

\ ____ ' 
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Tela 2 


^- 

TABELA DE COMPONENTES 

COD. UNID. DESCRICAO 

- % 

PRECO 

1 

KG 

M. PRIMA01 

121.5 

2 

L 

AGUA 

3.5 

3 

L 

GASOLINA 

303. 

4 

L 

ALCOOL HID 

178. 

5 

• 

♦ 

UN 

SABAO 

20. 

* 

• 

18 

v_ 

KG 

DEZOITO 

1111.1111 


r -*- 

FORMULA DO PRODUTO 

1 

PRODUTO: Prod. Principal N. 00 


COD. 

QUANTIDADE 


1 

0.5 


10 

0.1 


11 

0.05 


5 

0.0001 


7 

0.3 


17 

0.05 


15 

5. 


OUTRA FORMULA (S/N)? 

\_ 

_/ 
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Tela 4 
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TABELA DE COMPONENTES 

COD. UNID. DESCRICAO PRECO 

1 KG M.PRIMA01 121.5 

2 L AGUA 3.5 


18 KG DEZOITO 


1111.1111 


1 Tela? I 

/--- 


FORMULA DO PRODUTO 
PRODUTO: M. Prima 01 N. 1 

COD. QUANTIDADE 

2 0.1 

5 0.85 

15 0.001 


NOVA FORMULA? (S/N) 










Tela 8 


LISTA DOS CUSTOS DAS FORMULAS 
COD. DESCRICAO PRECO 

1 FORMULA 1 125.25255 

2 2. FORMULA 25.5 

3 PRINCIPAL 525,555 


18 ULTIMA 

< ENTER > P/SAIR 


111.11111 


Ustagem I 

5 REM 

CALCULO DE FORMULAS 

7 REM 

AUTOR: LOURIVAL KARSTEN 

8 REM 

CRIACAO DASTABELAS 

10 DIM 

U$ (18,2) 

11 DIM 

C$ (18,10) 

12 DIM 

P (18) 

13 DIM 

F$ (18,15) 

14 DIM 

C (18) 

15 DIM 

R (180) 

16 DIM 

Q (180) 

18 GOTO 

22 

20 INPUT 

Z$ 

21 CLS 
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22 PRINT AT 1,0; "OPCOES:" 

24 PRINT AT 3,0; "1-CADASTRAR M. PRIMAS" 
26 PRINT AT 5,0; "2-CADASTRAR FORMULAS” 
28 PRINT AT 7,0; "3-ALTERAR MAT PRIMAS” 

30 PRINT AT 9,0; ”4-ALTERAR FORMULAS” 

32 PRINT AT 11,0; "5-CALCULAR” 

34 PRINT AT 13,0; "6-LISTAR MAT PRIMAS” 

36 PRINT AT 15,0; ”7-LISTAR FORMULAS” 

38 PRINT AT 17,0; "8-LISTAR CUSTO FORMULAS” 
40 PRINT AT 19,0; ”9-FIM” 

50 INPUT A 

52 IF A = 0 OR A > 9 THEN GOTO 50 

53 CLS 

54 GOTO A * 100 
100 CLS 

105GOSUB 140 

110 FOR I = 1 TO 18 

112 PRINT AT3+l,1;l 

114 INPUT u$m 

116 PRINT AT3+l,5;U$(l) 

118 INPUT CS(I) 

120 PRINT AT3+l,10;C$|l) 

122 INPUT P(l) 

124 PRINT AT3 + I,23;P(I} 

126 NEXT I 
128 GOTO 21 

140 PRINT AT0,5; "TABELA DE COMPONENTES” 
142 PRINT AT 2,0; ”COD.” 

144 PRINT AT2,4; ”UNID" 

146 PRINT AT 2,10; "DESCRICAO” 

148 PRINT AT 2,25; "PRECO” 

150 RETURN 
200 CLS 

205 GO SUB 250 
210 INPUT I 

212 IF I = 0 THEN GOTO 21 

214 PRINT AT 1,30;I 
216 INPUT F$m 
218 PRINT AT 1,10;FS(I) 



220 FOR 

X = 1 TO 10 

222 INPUT 

R ((1-1) * 10 + X) 

224 IF 

R (0-1) * 10 + X) = 0 THEN GOTO 265 

226 PRINT 

ATX+4,3; R (0+1) * 10 + X) 

228 INPUT 

Q (0-1) * 10 + X) 

230 PRINT 

ATX+4,20; Q (0-1) * 10 + X) 

232 NEXT 

X 

234 GOTO 

265 

250 PRINT 

AT 0,7; "FORMULA DO PRODUTO" 

252 PRINT 

AT 1,1; "PRODUTO:" 

254 PRINT 

AT 1,27; "N." 

256 PRINT 

AT 2,2; "COD." 

258 PRINT 

AT 2,18; "QUANTIDADE" 

260 RETURN 
265 PRINT 

1 

AT 20,0; "OUTRA FORMULA (S/N)?" 

270 INPUT 

Z$ 

275 IF 

ZS = "S" THEN GOTO 200 

280 GOTO 

21 

300 CLS 

305 GOSUB 

140 

310 PRINT 

AT 1,10; "ALTERACAO" 

312 PRINT 

AT 5,10; "CODIGO A ALTERAR'?" 

314 PRINT 

AT 6,10; "0 P/FIM" 

316 INPUT 

1 

318 IF 

1 = 0 THEN GOTO 21 

320 LET 

F = 8 

322 GOSUB 

386 

328 PRINT 

AT 12,2; "QUE DADO ALTERAR? (0/1/2/3) 

330 INPUT 

F 

332 IF 

F = 0 THEN GOTO 300 

334 GOTO 

(F* 20) + 320 

340 INPUT 

U$(l) 

342 PRINT 

AT 15,5; U$(l) 

344 GOTO 

330 

360 INPUT 

C$0) 

362 PRINT 

AT 15,10; C$0) 

364 GOTO 

330 

380 INPUT 

P0) 

382 PRINT 

AT 15,23; P0) 
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384 GOTO 

330 

386 PRINT 

AT2+F/I; 1 

388 PRINT 

AT 2+F,5; US(I) 

390 PRINT 

AT 2+F,10;CS(l) 

392 PRINT 

AT 2 + F,23; P(l) 

394 RETURN 

412 INPUT 

1 

414 IF 

1 = 0 THEN GOTO 21 

416 PRINT 

AT 1,10; FS(I) 

418 PRINT 

AT 1,30; 1 

420 FOR 

F = 1 TO 10 

422 PRINT 

ATF + 5,7; R ((1-1) * 10 + F) 

424 PRINT 

AT F + 5,20; Q((l-1) * 10 + F) 

426 NEXT 

F 

427 RETURN 

400 CLS 


405 GOSUB 

250 

408 PRINT 

AT 1,10; "ALTER ACAO" 

410 GOSUB 

412 

411 GOTO 

428 

428 PRINT 

AT 4,0; "LINHA ?" 

430 INPUT 

F 

432 IF 

F = 0 THEN GOTO 400 

434 PRINT 

AT 5,0; "DADO ? (0/1/2)" 

436 INPUT 

X 

438 IF 

X = 0 THEN GOTO 430 

440 GOTO 

(X * 20) + 430 

450 INPUT 

R ((1-1) * 10 + F) 

452 PRINT 

AT F+5,7; R {(1-1) * 10 + F) 

454 GOTO 

434 

470 INPUT 

Q (0-1) * 10 + F) 

472 PRINT 

AT F + 5,20; Q ((1-1) * 10 + F) 

474 GOTO 

434 

500 CLS 


505 REM 

ROTINA DE CALCULO 

510 FOR 

1 = 1 TO 18 

512 LET 

Z = 0 

514 FOR 

X = 1 TO 10 

516 LET 

F = R {(1-1) * 10 + X) 



517 IF 

F = 0 THEN GOTO 522 

518 LET 

Y = P{ F) 

520 LET 

Z = Z + {Y * Q ((1-1) * 10 + X)) 

522 NEXT 

X 

524 LET 

C(l) = z 

526 NEXT 

1 

528 PRINT 

"JA TER MIN El OS CALCULOS" 

530 PAUSE 

1000 

532 GOTO 

21 

600 CLS 

605 GOSUB 

140 

610 FOR 

1 = 1 TO 18 

612 LET 

F = 1 

614 GOSUB 

386 

616 NEXT 

1 

618 PRINT 

"PARA SAIR < NEW LINE > " 

620 INPUT 

ZS 

622 GOTO 

21 

700 CLS 

705 GOSUB 

250 

710 PRINT 

AT 1,11; "LI STAG EM" 

712 GOSUB 

412 

714 PRINT 

715 PRINT 

"NOVA FORMULA ? (S/N) 

716 INPUT 

Z$ 

718 IF 

ZS <>"S" THEN GOTO 21 

720 CLS 

722 GOTO 

700 

800 CLS 

805 PRINT 

"LISTA DOS CUSTOS DAS FORMULAS 

810 PRINT 

AT 2,0; "COD." 

812 PRINT 

AT 2,6; "DESCRICAO" 

814 PRINT 

AT 2,23; "PRECO" 

816 FOR 

1 = 1 TO 18 

818 PRINT 

AT 1+3,1; 1 

820 PRINT 

AT 1+3,6; P$(l) 

822 PRINT 

AT 1+3,23; CO) 

824 NEXT 

1 




826 PRINT 
828 INPUT 
830 GOTO 
900 PRINT 
905 PRINT 
910 STOP 
915 SAVE 
920 GOTO 


AT 22,0; "< NEW LINE > P/SAIR" 
ZS 
21 

"NAO ESQUECA DE FAZER COPIA" 
"ATUALIZAR APOS ALTERACOES" 

“FORMULAS" 

21 



Ponto de Equilibria 


A an^lise do ponto de equilfbrio e urn metodo bastante util de 
visualizapao de um produto, de um setor ou mesmo de toda uma 
empresa com relapao aos seus custos fixos, custos variaveis, 
prepos e conseqiiente nivel de lucratividade. 

Nao entraremos em maiores detalhes com relapao ao 
embasamento teorico do calculo do ponto de equihbrio mas, 
sempre que possivel, alguns detalhes foram incorporados ao 
proprio programa, escrito em BASIC Sinclair e, portanto, 
compativel com TK, NE e CP. 

Ao iniciarmos a operapao do programa, o mesmo montara a tela 1 
(vide anexo), solicitando pela ordem: 

Quantidade, 

Pre^o unitario, 

Custo variavel unitario, 

Custo fixo total. 

Com estas informagoes, sera calculado o lucro ou prejuizo ou, 
ainda, serS informado que foi atingido o ponto de equihbrio, 
conforme o caso. 

Alem desta mensagem, sera montado o resto da tela 1 que 
consiste em mais 4 (quatro) opgoes de trabalho. 

Neste ponto, pode-se optar por alterar qualquer dos dados _ 
informados, digitando o numero que precede cada informagao e 
introduzindo o novo valor. Isto implicara um recalcu o do ponto 
de equilibrio. Esta opgao permite que se fagam simulagoes, 
alterando qualquer das variaveis e observando as consequencias 
em relagao a lucratividade. 

Podemos ainda optar por outras rotinas, a saber: 

5-CALCULAR O PONTO que implicara o calculo da quantidade 
necessaria para atingir o ponto de equilfbrio - qu o mais proximo 
possivel -, utilizando o prego e os custos mformados. 



Caso a quantidade seja superior a 5000(cinco mil) unidades, o 
programa nao calculara o mesmo. Neste caso, basta voltar a 
informar o prego e o custo variavel unitario em uma outra base, 
por exemplo: centenas. 

6- NOVO CALCLJLO e uma rotina que permite reiniciar o 
programa, informando-se urn novo conjunto de dados sem 
precisar acessar cada dado individualmente. 

7- FIM serve unicamente para encerrar.a execugao do programa. 

8- GRAFICO DO PONTO destroi a tela urn e monta um grafico do 
ponto de equilibrio, utilizando para tanto a quantidade e os 
custos informados que por ultimo estavam na tela. Embora devido 
a problemas inerentes ao proprio micro a visualizagao nao seja 
perfeita, ela permite uma aproximagao bastante razoavel da 
trajetoria normal dasdiversas linhas. 

Para fazer copia do programa em fita, podem ser utilizadas as 
duas ultimas linhas do programa. 


r 


BREAK-EVEN-POINT 


1- QUANTIDADE. 

2- PRECO UNITARIO. 

3- CUSTO VARIAVEL UNITAR. 

4- CUSTO FIXO. 

X mfinsaqem 

X 

5- CALCULAR 0 PONTO 

6- NOVO CALCULO 

7- FIM 


8-GRAFICO DO PONTO 

V 

J 
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Li stage m 


1 


2 CLS 
5 PRINT 
10 REM 
12 LET 
20 FOR 
25GOSUB 
30 NEXT 
35 LET 
40 IF 
45 IF 
50 IF 
55 PRINT 
60 PRINT 
65 PRINT 
70 PRINT 
75 INPUT 
80 IF 
85 GOTO 
115GOSUB 
116 GOTO 
120 PRINT 
122 INPUT 
124 PRINT 
126 RETURN 

135 GOSUB 

136 GOTO 
140 PRINT 
142 INPUT 
144 PRINT 
146 RETURN 

155 GOSUB 

156 GOTO 
160 PRINT 
162 INPUT 
164 PRINT 


"BREAK-EVEN-POINT" 

AUTOR: LOU RIVAL KARSTEN 
X$ = "EQUILIBRIO EM" 

I = 1 TO 4 
(I *20) + 100 
I 

L = (P * Q) - (V * Q) - F 

L < 0 THEN PRINT AT 10,0; "PREJUIZO DE CR$ ";L;" 
L = 0 THEN PRINT AT 10,0;XS;Q; "UNIDS " 

L > 0 THEN PRINT AT 10,0; "LUCRO DE CRS ";U" 
AT 13,0; "5-CALCULAR O PONTO" 

AT 15,0; "6-NOVO CALCULO" 

AT 17,0; "7-FIM" 

AT 19,0; "8-GRAFICO DO PONTO" 

A 

A < 1 OR A > 8 THEN GOTO 75 
{A * 20) + 95 
120 
35 

AT 2,0; "1-QUANTIDADE. 

Q 

Q;" " 


140 

35 


AT 4,0; "2-PRECO UNITARIO. 


P 

P; " 

160 

35 

AT 6,0; "3-CUSTO VARIAVEL UNITAR 
V 

V;" " 
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166 RETURN 
175GOSUB 180 
176 GOTO 35 

180 PRINT AT 8,0; "4-CUSTO FIXO. 

182 INPUT F 
184 PRINT F; " 

186 RETURN 

200 FOR Q = 1 TO 5000 
202 LET L = (P * Q) - (V * Q) - F 
204 IF L > = 0 THEN GOTO 212 

206 NEXT Q 

208 PRINT AT 10,0; X$; "MAIS DE 5000 UNID/' 
210 GOTO 75 

212 PRINT AT 10,0;X$;Q; "UNIDS." 

213 PRINT AT 2,0; "1-QUANTIDADE.."Q 

214 GOTO 75 

220 GOTO 2 

240 STOP 

255 CLS 

260 FOR 1=2 TO 39 
262 PLOT 2, I 

264 NEXT I 

266 FOR I = 2 TO 38 STEP 4 

268 PLOT 3,1 

270 NEXT I 

272 FOR I = 4 TO 60 

274 PLOT 1,2 

276 NEXT I 

278 FOR I — 5 TO 30 STEP 5 

280 PRINT AT 21,1-1; I 
282 NEXT I 

284 FOR I = 2 TO 20 STEP 2 
286 PRINT ATI, 0; 10-0/2) 

288 NEXT I 

290 LET Q1 = INT (P * Q) / 40 
292 LET Q2 = INT Q/40 

294 FOR I = 2 TO 60 

296 PLOT I, INT (F/Q1) 

298 NEXT I 





300 LET Y = 1 

302 FOR I = 2 TO 58 STEP 1.5 

304 PLOT I, Y 

306 LET Y = Y + 1 

308 NEXT I 

309 LET Y = 1 

310 FOR I = 2 TO 58 STEP 1.5 

312 LET CT = INT (F +(Q2 * Y * V))/Q1 

314 PLOT I, CT 

316 LET Y = Y + 1 

318 NEXT I 

320 STOP 

325 SAVE “BREAK" 

330 RUN 



Late Econdmico 




Em momentos de inflagao alta e principalmente com custos 
financeiros muito elevados, e essencial uma boa administragao de 
materiais. Uma das medidas mais eficientes e o recurso ao "Lote 
economico de compras". 

O programa a seguir detalhado, escrito para (inha Sinclair, podera 
ser muito util na tarefa de efetuar os calculos para a determinagao 
do mesmo. 

A formula de calculo, tradicional, e a seguinte: 



onde: 

Q = Quantidade mais economica de aquisigao. 

D = Demanda anual do produto, em unidades de medida. Ex.: kg. 
P = Custo de fazer um pedido. 

J = Custo de manutengao do estoque, expresso em percentual. 

C = Custo unitario do produto na unidade de medida em que fot 
expresso o consumo anual. 

Durante a operagao do programa, cada um desses dados e 
solicitado, devendo ser digitado. Esta rotina so pode ser 
interrompida depois que todos os dados forem digitados. 

Apos a digitagao do ultimo dado, o programa faz uma breve 
pausa e, logo a seguir, realiza a tarefa de calculo, exibindo o 
resultado tao logo complete esta tarefa. 

Uma vez estando o resultado na tela, e permitida a opgao entre: 

S - realizar novo calculo e N - interromper o mesmo. 

Para realizar copias do programa em fita, podemos utilizar as duas 
ultimas I in has do mesmo que contem os comandos necessarios. 


J 



Tela 


CALCULO DE LOTE ECONOMICO DE COMPRA DE UM PRODUTO 

DEMANDA ANUAL DE KG ..00000000 

CUSTO DO PEDIDO CRS..00000000 

CUSTO ESTOCAGEM./...00000000 

CUSTO UNITARIO CRS ...00000000 

LOTE ECONOMICO DE 00000000 KG 

OUTRO CALCULO ? (S/N) 


Li stage m 


5 REM LOTE ECONOMICO 

10 REM AUTOR: LOURIVAL KARSTEN 

11 CLS 

12 PRINT “CALCULO DE LOTE ECONOMICO DE" 

13 PRINT "COMPRA DE UM PRODUTO" 

16 PRINT AT 7,0; "DEMANDA ANUAL DE KG.."; 
18 INPUT D 
20 PRINT D;" 

22 PRINT AT 9,0; "CUSTO DO PEDIDO CRS.."; 
24 INPUT P 
26 PRINT P;" 

28 PRINT AT 11,0; "CUSTO ESTOCAGEM./..."; 

30 INPUT J 
32 PRINT J;" 

34 PRINT AT 13,0; "CUSTO UNITARIO CRS..."; 
36 INPUT C 
38 PRINT C;" 


36 











40 LET 
42 PRINT 
PRINT 
INPUT 
IF 

STOP 
SAVE 
GOTO 


R = SQR ({2*D*P)/(J*C}) 

AT 17,0; "LOTE ECONOMICO DE ";R;” KG 
AT 19,0; "OUTRO CALCULO? (S/N)" 

xs 

X$ = "S" THEN GOTO 11 

"LOTE” 
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Quilometragem 


A aquisigao de um veiculo ou mesmo a sua manutengao envolve 
uma s£rie de fatores, muitos deles subjetivos, mas tambem custos. 
O custo do quilometro rodado por um veiculo pode ser calculado 
pelo programa que ora apresentamos. Embora o mesmo tenha 
sido montado da forma mais simplificada possfvel, oferece uma 
grande aproximagao do custo real e, portanto, £ perfeitamente 
adequado para calculos pessoais ou mesmo semiprofissionais. Em 
se tratando de uma frota, seria mais produtivo montar um 
programa um pouco diferente que possa armazenar uma serie de 
constantes e mesmo dados fundamentais a respeito dos vefculos. 

Para uma melhor compreensao do programa, recomenda-se o 
acompanhamento, atraves da tela anexa, dos diversos dados a 
serem informados, inteirando-se a respeito do que compreende 
cada um: 

CUSTO DO VEICULO - Considerando-se o custo efetivo do 
veiculo atraves da diferenga entre o Valor de Aquisigao (ou atual) 
do veiculo e o Prego de Venda, ou seja, o valor que se ganharia 
pelo veiculo atual se o mesmo tivesse "X" meses (ou anos) de 
uso. Este valor futuro a prego de hoje pode ser obtido atraves de 
tabelas como as de Quatro Rodas ou de revendedores. 

Importante: Nao se considera a inflagao nesta avaliagao, pois o 
que interessa para o calculo da depreciagao real e a diferenga 
entre os valores a pregos de hoje. 

Portanto, neste primeiro grupo de informagoes devem-se digitar o 
valor de aquisigao, o prego de venda e o numero de meses que se 
pretende ficar com o mesmo (diferenga de tempo entre os dois 
pregos). 

KMS POR MES? - Estimativa da quilometragem m<§dia que se fara 
mensalmente com o veiculo. 

SEGUROS CR$/ANO - Neste item deverao ser incluidos nao s6 o 




premio de seguro obrigatorio como ainda os premios do seguro 
contra terceiros ou seguro total, quando isto ocorrer. 

REFORMAS-CRS/ANO - Alguns automoveis, notadamente quando 
for prevista uma grande quilometragem, necessitarao de reformas. 
Neste caso nao se deve deixar de incluir um valor previsto 
anualmente para tal fim. 

MANUTENCAO-CR$/ANO - Neste valor devem-se incluir nao so 
pequenos consertos como itens eventuais como para-brisa 
quebrado, troca de velas etc.... 

TRU-CR$/ANO - Valor a ser pago anualmente. 

OLEO-CR$/ANO - Para efeito de simplifica^ao, inclui-se o valor 
anual deste item, pois o mesmo, alem de variar em quantidades 
para vefculos diferentes, inclui trocas a quilometragens diversas. 

A troca de filtro de ar tambem deve ser considerada quando 
houver muito transito em estradas de terra. 

GRAXA-LAVACAO-CR$/MES - Alem de graxa (quando for o caso), 
este item inclui a lava^ao e outros servigos eventuais. Adicionar ao 
valor os aditivos utilizados e o gasto com gasolina por vefculo a 
alcool. 

PNEUS-CRf CADA - Valor de cada um dos quatro pneus do 
vefculo. 

VIDA PNEUS-KM - Vida estimada para cada pneu, considerando- 
se desgaste normal, piso das estradas, condi^oes de carga etc... 

KM POR LiTRO - Quilometragem media estimada do veiculo com 
um litro de combustfvel. Recomenda-se utilizar um levantamento 
real, incluindotanto cidade como estrada. Considere-se sempre a 
utilizagao normal do veiculo. 

COMB.-CR$ P/LITRO - Informe o pre^o por litro do combustfvel 
utilizado. 

Apos passar estas informagoes ao micro TK, NE ou CP, o mesmo 
calculara o custo por quilometro rodado do vefculo, sem 
considerar apenas o custo do motorista. Quando o custo do 
motorista for fundamental, basta dividir o custo mensal do 



mesmo, incluindo-se os encargos etc., pela quilometragem mensal 
e adicionar ao custo por quilometro rodado calculado pelo micro, 
obtendo-se assim o custo total por quilometro. 

A formula utilizada para o calculo do custo por quilometro 
rodado e a seguinte: 

U = M * K 

Q = <(A - V)/U) + ((S + R + Ml + T + 0)/12K) + (G/K) + 

((4 * P)/l) + (Cl L) 

onde: 

A = Custo de aquisigao do veiculo. 

V = Prego de revenda do veiculo apos x meses de uso. 

M = Tempo de uso previsto, em meses. 

K = Quilometragem mensal estimada. 

S - Valor dos premios de seguro pagos. 

R = Custo das reformas por ano. 

Ml = Custo das manutengoes por ano. 

T = Valor a ser pago de TRU. 

O = Custo anual das trocas de oleo. 

G = Custo mensal de graxa e lavagao. 

P = Custo unitario dos pneus. 

I = Quilometragem estimada para os pneus. 

L = Quilometragem com 1 litro de combustfvel. 

C = Pre^o do litro de combustivel. 


I Tela I - 


QUILOMETRAGEM 


CUSTO AQUJSICAO-CRS 

00000000 

PRECO REVENDA-CHS 

00000000 

APOS??? MESES? 

00000000' 

KM POR MES? 

00000000 

SEGUR0S-CR5/AN0 

00000000 

REFOHMAS-CRS/ANO 

00000000 

MANUTENCAO-CRS/ANO 

00000000 

TRU-CRS/AMO 

00000000 

OLEO-CRS/MES 

00000000 

GRAXA-LAVACAOCRS/MES 

00000000 

PNEUS-CRS CADA 

00000000 

VIDA PNEUS-KM? 

00000000 

KM POR UTRO? 

00000000 

COMB. = CRS P/LITRO 

00000000 

CUSTO DO KM RODADO 

00000000 

OUTRO CALCULO? (S/N) 

_ J 




Listagem 


2 REM 

QUILOMETRAGEM 

4 REM 

AUTOR: LOU RIVAL KARSTEN 

5 CLS 


6 PRINT 

AT0,10; "QUILOMETRAGEM" 

8 PRINT 


10 PRINT 

"CUSTO AQUISICAO-CRS" 

12 INPUT 

A 

14 PRINT 

AT 2,23; A 

16 PRINT 

"PRECO REVENDA-CRS" 

18 INPUT 

V 

20 PRINT 

AT 3,23; V 

22 PRINT 

"APOS??? MESES? 

23 INPUT 

M 

24 PRINT 

AT 4,23; M 

26 PRINT 

"KM POR MES?" 

28 INPUT 

K 

30 PRINT 

AT 5,23; K 

32 PRINT 

"SEGUROS-CR$/ANO" 

34 INPUT 

S 

36 PRINT 

AT 6,23; S 

38 PRINT 

"REFORMAS-CRS/ANO" 

40 INPUT 

R 

42 PRINT 

AT 7,23; R 

44 PRINT 

"MANUTENCAO-CRS/ANO" 

46 INPUT 

Ml 

48 PRINT 

AT 8,23; Ml 

50 PRINT 

"TRU-CRS/ANO" 

52 INPUT 

T 

54 PRINT 

AT 9,23; T 

56 PRINT 

"OLEO-CRS/ANO" 

58 INPUT 

O 

60 PRINT 

AT 10,23; O 

62 PRINT 

"GRAXA-LAVACAO-CRS/MES 

64 INPUT 

G 

66 PRINT 

AT 11,23; G 

68 PRINT 

"PNEUS-CRS/CADA" 





70 INPUT 

P 

72 PRINT 

AT 12,23; P 

74 PRINT 

"VIDA PNEUS-KM?" 

76 INPUT 

1 

78 PRINT 

AT 13,23; 1 

80 PRINT 

"KM POR LITRO?" 

82 INPUT 

L 

84 PRINT 

AT 14,23; L 

86 PRINT 

"COMB. =CR$ P/LITRO 

88 INPUT 

C 

90 PRINT 

AT 15,23; C 

92 LET 

U = M * K 

94 LET 

Q - (A - V)/U 

96 LET 

Q = Q + ((S + R + M1+T+0)/(K 

104. LET 

Q = Q + (G / K) 

106 LET 

Q = Q+ ({4 * P) /I) 

108 LET 

109 PRINT 

Q = Q + (C/L) 

110 PRINT 
112 PRINT 

"CUSTO DO KM RODADO = 

114 PRINT 

"OUTRO CALCULO? (S/N)" 

116 INPUT 

ZS 

118 IF 

120 STOP 

z$ = "S" THEN GOTO 5 

122 SAVE 
124 RUN 

"QUILOMETRAGEM" 
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Pesquisa 


i 

Um grande problema de uma pesquisa e a tabulagao das 
respostas. Caso se faga uma pesquisa limitada a 20(vinte) 
perguntas com ate 5 opgoes por pergunta, seus problemas de 
tabulagao das respostas ficam minimizados, pois o programa aqui 
apresentado permitira que seu micro de logica Sinclair (TK ou 
NEZ ou CP) se encarregue de parte da tarefa. 

Apos a primeira vez que o programa for utilizado, nao se 
recomenda o uso do comando RUN, pois o mesmo destruira os 
arquivos. Apenas sera necessario efetuar esta destruigao para 
limpar os arquivos antes de se iniciar a digitagao dos dados de 
uma nova pesquisa. Para os acessos normais ao programa, utiiiza- 
se o comando GOTO 20 

No video aparecera a tela 1 (vide anexo) que e o menu do 
programa. Para acessar qualquer rotina a partir desta tela, basta 
digitar o numero que precede a rotina desejada. 

Pressionando a tecla 1 e ENTER ou NEW LINE, entramos na rotina 
(1) CADASTRAR PERGUNTAS E OPCOES que apresentara a tela 2 
(vide anexo) que permitira o cadastramento das perguntas de 1 a 
20 Nao esta prevista a interrupgao desta rotina antes da vigesima 
pergunta. Caso necessario, basta completar perguntas e opgoes 
nao utilizadas com espagos (comando ENTER ou NEW LINE sem 
digitar nada). 

Na tela aparecera o numero da proxima pergunta e o micro 
aguardara a digitagao da descrigao da pergunta com um maximo 
de 25 posigoes. 

Digitada a descrigao da pergunta, o programa solicitara a 
descrigao resumida das cinco opgoes possiveis (maximo de 10 
letras). Quando nao existirem opgoes, basta incluir espago, 
pressionando a tecla ENTER ou NEW LINE. 



A opgao 2 nos leva a rotina (2) ALTERAR PERGUNTAS E OPCOES 
que e altamente conversacional (observe tela 3), solicitando 
inicialmente qual a pergunta que se deseja acessar. A digitagao de 
0(zero) provoca o retorno ci tela 1. 

Dispomvel a pergunta, o programa oferece duas opgoes: "S" para 
alterar a pergunta e "N" para continuar. 

Neste ponto o programa entra em "looping", permitindo a 
alteragao de uma ou mais opgoes. A digitagao de 0(zero) romper^ 
o looping, levando a uma indagagao que permite duas opgoes: 

"S" para acessar outra pergunta ou a mesma outra vez e "N" 
para retornar a tela 1. 

A opgao (3) DIGITAR RESPOSTAS mostrara a tela 4 (vide anexo) que 
e utilizada para a digitagao das respostas a pesquisa. Cada vez que 
esta rotina for acessada, o contador de questionarios processados 
fica incrementado de 1. Para zerar este contador sem destruir os 
arquivos, basta entrar no programa atraves de GOTO 18. 

O programa exibira cada uma das perguntas de 1 a 20 
perguntando qual a opgao escolhida no questionario. 
tmportante: Cada pergunta permite a digitagao da op$ao 0(zero) 
que sera interpretada como "nao opinou". 

Ap6s a vigesima pergunta, o programa oferece a op^ao "S" para 
processar novo questionario e "N" para voltar a tela 1. 

A opgao (4) APRESENTAR RESPOSTAS, que utiliza a tela 5 a 
qualquer momento, mostrara a posi?ao das respostas a cada 
pergunta (op^oes escolhidas), calculando o percentual em relagao 
ao universe dos questionarios processados. 

Os dados permanecem na tela para consulta ate ser pressionada a 
tecla ENTER ou NEW LINE, quando automaticamente sera 
exibida a proxima pergunta e suas respostas. 

A ultima opgao, (5) FIM, desvia para uma rotina inteiramente 
conversacional que permite a interrupgao do programa ou a 
produgao de uma copia atualizada do programa e seus arquivos. 


L 
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Tela 1 


PESQUISA 

OPCOES 

(1) CADASTRAR PERGUNTAS E OPCOES 
{2) ALTERAR PERGUNTAS E OPCOES 
(3) DIGITAR RESPOSTAS 
<4) APRESENTAR RESPOSTAS 
(5) FIM 


Tela 2 








ALTERAR PERGUNTAS E OPCOES 

N0MERO DA PERGUNTA? (0 = FIM) 
00 

ALTERAR? (S/N) 

NOVA REDACAO DA PERGUNTA = 

X_X 

QUE OPCAO? (0 = FIM) 

X_X 


OUTRA ALTERACAO? (S/N) 


Tela 4 | — 


DIGITAR RESPOSTAS 
PERGUNTA N. 00 

X_X 

OPCAO??? 0 


CONTINUA? (S/N) 







Tela 5 


APRESENTAR RESPOSTAS 
RESPOSTAS A PERGUNTA 00 

X_X 

UNIVERSO DE 00 RESPOSTAS 

X_X = 0000 = 0000 0/0 

X_X = 0000 = 0000 0/0 

X_X = 0000 = 0000 0/0 

X_X = 0000 = 0000 0/0 

X_X = 0000 = 0000 0/0 

X_X = 0000 = 0000 0/0 

< ENTER > PARA OUTRA PERGUNTA 

V___,_ J 




Li stage m 




5 REM 
10 REM 
14 DIM 
16 DIM 

18 DIM 

19 LET 

20 LET 
22 LET 
24 LET 
26 LET 
28 LET 
30 LET 
36 PRINT 
38 CLS 
40 PRINT 
42 PRINT 
44 PRINT 


PESQUISA 

AUTOR: LOU RIVAL KARSTEN 
PS (20,25) 

OS (100,10) 

R (120) 

Z = 0 

AS = "CADASTRAR PERGUNTAS E OPCOES” 
BS = “ALTERAR PERGUNTAS E OPCOES” 

CS = "DIGITAR RESPOSTAS” 

DS = “APRESENTAR RESPOSTAS” 

ES = ”FIM” 

FS = "OUTRAS" 

AT 0,6; “PESQUISA” 

AT 2,8; "OPCOES" 

AT 4,0; “(1)"; AS 
AT 6,0; “(2)”; BS 


47 








46 PRINT 

AT 8,0; "(3)"; CS 

48 PRINT 

AT 10,0; "(4)"; DS 

50 PRINT 

AT 12,0; "(5)''; ES 

52 INPUT 

A 

54 IF 

A = 0 OR A > 5 THEN GOTO 52 

55 CLS 


56 GOTO 

A * 100 

100 FOR 

A = 1 TO 20 

102 PRINT 

AT 0,2; AS 

104 PRINT 


106 PRINT 

"PERGUNTA N. A 

108 PRINT 


110 INPUT 

PS (A) 

112 PRINT 

PS (A) 

114 FOR 

B = 1 TO 5 

116 PRINT 


118 PRINT 

"OPCAO N. "; B 

120 INPUT 

OS ((A-1) * 5 + B) 

122 PRINT 

OS ({A-1) * 5 + B) 

124 NEXT 

B 

126 CLS 


128 NEXT 

A 

130 GOTO 

38 

200 CLS 


201 PRINT 

AT 0,3; BS 

202 PRINT 


204 PRINT 

"NUMERO DA PERGUNTA?" (0 = 

206 INPUT 

A 

207 IF 

A = 0THEN GOTO 38 

208 IF 

A > 20 THEN GOTO 204 

210 PRINT 

A 

212 Print 

"ALTERAR? (S/N)" 

214 INPUT 

ZS 

216 IF 

ZS < > "S" THEN GOTO 226 

218 PRINT 

"NOVA REDACAO DA PERGUNTA 

220 INPUT 

PS (A) 

222 PRINT 

PS (A) 

226 PRINT 

"QUE OPCAO? (0 = FIM)" 

228 INPUT 

B 




r 


230 IF 
232 IF 
234 INPUT 
236 PRINT 
238 GOTO 
240 CLS 
242 PRINT 
244 INPUT 
246 IF 
248 GOTO 
300 LET 
302 FOR 

304 PRINT 

305 PRINT 

306 PRINT 

308 PRINT 

309 PRINT 

310 INPUT 

311 PRINT 

312 IF 

313 LET 

314 CLS 

316 NEXT 

317 PRINT 

318 PRINT 
320 INPUT 
322 IF 
324 GOTO 
400 PRINT 
402 PRINT 
404 FOR 

406 PRINT 

407 PRINT 

408 PRINT 

409 PRINT 

410 PRINT 
412 FOR 

414 PRINT 

415 IF 


B = 0 THEN GOTO 240 
B > 5 THEN GOTO 226 
0$ ({A-1) * 5 + B) 

0$ ((A-1) * 5 + B) 

226 

"OUTRA ALTERACAO? (S/N)" 
Z$ 

Z$ = "S" THEN GOTO 200 
38 

Z = Z + 1 
A = 1 TO 20 
AT 0,7; C$ 


"PERGUNTA N. ";A,PS (A) 

"OPCAO ??? 

B 

B 

B > 5 THEN GOTO 310 

R {(A-1) * 6 + B + 1) = R ((A-1) *6 + B + 1) + 1 
A 

"CONTINUA? (S/N)" 

Z$ 

ZS = "S" THEN GOTO 300 
38 

AT 0,6; D$ 

A = 1 TO 20 

"RESPOSTAS A PERGUNTA ";A 
P$ (A) 

"UNIVERSO DE ";Z;" RESPOSTAS" 

B = 1 TO 5 

R ((A-1) * 6 +B+1) = 0 THEN GOTO 418 



416 PRINT OS ((A-1) * 5+B);“ = R <(A-1) * 6+B+1);“ = ' 
R ((A-1) *6 + B+1)/Z* 100; 

418 NEXT B 

419 IF R ((A-1) * 6 + 1) = 0 THEN GOTO 422 

420 PRINT FS; R ((A-1) *6 + 1); "="; 

R ((A-1) *6 + 1)/Z* 100; 

422 PRINT 

424 PRINT " < NEW LINE > PARA OUTRA PERGUNTA" 

426 INPUT ZS 

427 CLS 

430 NEXT A 

432 GOTO 38 

500 PRINT “PARA COPIA ATUALIZADA" 

502 PRINT “CONECTE GRAVADOR" 

504 PRINT “DIGITE “S“ E ENTER OU NEW LINE" 

510 INPUT ZS 

515 IF ZS = “S“ THEN GOTO 525 

520 STOP 

525 SAVE “PESQUISA" 

527 CLS 
530 GOTO 20 



Grafico / | 

A apresentagao de dados atraves de graficos e uma forma bastante 
utilizada, pois a visualizagao da evolugao dos mesmos e muito 
facilitada. 

Por isso, considera-se a produgao de graficos muito importante, 
notadamente os graficos em colunas. 

O programa "GRAFICO I" permite a produgao de um grafico 
com at£ 15 eventos. 

Apos todas as quinze informagoes terem sido introduzidas — caso 
existam menos informagoes, completa-se com zeros —, o mesmo 
produzira um grafico em colunas, atribuindo ao valor maior 
introduzido a amplitude maxima possivel e, aos outros valores, 
amplitudes proporcionais. 

Para copiar o programa em fita, podem ser utilizadas as duas 
ultimas linhas do mesmo. 


Listage m 



5 REM 

GRAFICO 1 

10 REM 

AUTOR: LOU RIVAL KARSTEN 

15 DIM 

K(15) 

20 PRINT 

"INTRODUZA OS DADOS" 

25 FOR 

X = 1 TO 15 

30 INPUT 

K(X) 

35 PRINT 

AT X+2,10; K(X) 

40 NEXT 

X 

45 CLS 


50 FOR 

X = 2 TO 39 

55 PLOT 

2,X 

60 NEXT 

X 

65 FOR 

X = 2 TO 38 STEP 4 

70 PLOT 

3,X 






75 NEXT X 

80 FOR X = 4 TO 63 

85 PLOT X,2 

90 NEXT X 

95 FOR X = 1 TO 5 

100 PRINT AT 21,(X*2); X 
105 NEXT X 

110 FOR X = 2 TO 20 STEP 2 
115 PRINT AT X,0; 10-(X/2) 

120 NEXT X 

125 LET X = 1 

130 LET Z = K(X) 

135 FOR X = 2 TO 15 

140 IF K{X) > Z THEN LET Z = K(X) 

145 NEXT X 

150 LET Z = Z/18 

155 FOR X = 1 TO 15 

160 LET Y = 1NT K(X)/Z 

165 FOR T = 19 TO 20-Y STEP -1 

170 PRINT AT T, X*2; (GRAPHICS e SPACE) 

175 NEXT T 

180 NEXT X 

185 INPUT Z$ 

190 STOP 

195 SAVE "GRAFICO I” 

200 RUN 



Grafico II 


Similar ao "GRAFICO I", o presente programa permite a 
representagao de graficos com um numero maior de dados — ate 
3 (h Portanto, como tern maior capacidade, pode manipuiar series 
historicas mais extensas e mais confiaveis. 


Listage m 


5 REM 

GRAFICO II 

10 REM 

AUTOR: LOURIVAL KARSTEN 

15 DIM 

K(30) 

20 PRINT 

"INTRODUZA OS DADOS" 

25 FOR 

X = 1 TO 15 

30 INPUT 

K(X) 

35 PRINT 

ATX+4, 10; K(X) 

40 NEXT 

X 

45 FOR 

X = 16 TO 30 

50 INPUT 

K(X) 

55 PRINT 

AT X-11, 20; K(X) 

60 NEXT 

X 

65 CLS 

70 FOR 

X = 2 TO 39 

75 PLOT 

2,X 

80 NEXT 

X 

85 FOR 

X = 2 TO 38 STEP 4 

90 PLOT 

3,X 

95 NEXT 

X 

100 FOR 

X = 4 TO 63 

105 PLOT 

X,2 

110 NEXT 

X 

115 FOR 

X = 1 TO 9 

120 PRINT 

AT 21, X + 1; X 

125 NEXT 

X 

127 LET 

Z - 1 



130 FOR 

X = 0TO 9 

135 PRINT 

AT 21; X+1 + (Z*10); X 

140 NEXT 

X 

145 IF 

z = >2 THEN GOTO 158 

150 LET 

Z = Z + 1 

155 GOTO 

130 

158 PRINT 

AT 21, 31; "0" 

160 LET 

X = 1 

165 LET 

Z = K(X) 

170 FOR 

X = 2 TO 30 

175 IF 

K{X) > Z THEN LETZ - K(X) 

180 NEXT 

X 

185 LET 

Z = Z/18 

190 FOR 

X = 1 TO 30 

195 LET 

Y = INT K(X)/Z 

200 FOR 

T = 19 TO 20 - Y STEP -1 

205 PRINT 

ATT, X+1; (GRAPHICS + SPACE) 

210 NEXT 

T 

215 NEXT 

X 

220 FOR 

X = 2 TO 20 STEP 2 

225 PRINT 

ATX, 0; 10 - (X/2) 

230 NEXT 

X 

235 INPUT 

zs 

240 STOP 


245 SAVE 
250 RUN 

1 

"GRAFICO II" 




Estatfstica 


■ni 


Normalmente, e insuficiente tomar alguns dados e fazer deles um 
grafico. E preciso tambem que se guardem estes dados para uso 
futuro. 

O presente programa permite a manipuiagao de cinco series 
estatisticas com ate 12 (doze) dados em cada serie. 

Produz inicialmente uma tela (tela 1) que e o menu do sistema. As 
opgoes oferecidas, que podem ser acessadas digitando-se o 
numeroqueas precede, sao: 

1- IMPLANTACAO que permite, atraves da tela 2, a digitagao dos 
dados que constituirao cada uma das series a serem armazenadas. 
A selegao de uma serie ja ocupada por outras informagoes 
provocara a destruigao dos dados armazenados anteriormente, 
devendo-se tomar algumas cautelas para evitar a perda de 
informagoes. Para saber se ja existem dados gravados e 
recomendavel o acesso a mesma atraves da opgao 2-MAN UTENCAO. 
A rotina de digitagao dos dados de uma serie so e interrompida 
apos a digitagao do 12P dado, podendo, caso necessario, a serie 
ser completada com zeros. 

2- MAN UTENCAO permite, atraves da tela 3, a alteragao de 
qualquer dado de uma serie selecionada. A selegao da serie 0 
(zero) provocara o retorno ao menu, e a selegao do dado 0 (zero) 
provocara a habilitagao para selecionar nova serie. Para verificar 
os dados contidos em uma serie, basta seleciona-la e, ao inves de 
reaiizar alteragoes, selecionar o dado 0(zero). 

3- ATUAUZACAO e a rotina que permite, atraves da tela 4, a 
introdugao de um novo dado a serie, realizando-se a sua 
atualizagao atraves do rolamento de todos os dados para a 
posigao irnediatamente anterior, de forma que o dado 1 
desaparecera dando lugar ao dado 2, e assim por adiante. Esta 
rotina permitira assim que a serie seja sempre formada pelos 
dados dos ultimos 12 meses. 




Ap6s a introdugao do dado mais recente, o programa montara a 
nova situagao da serie, exibindo-a na tela. Para sair desta rotina, 
basta selecionar a serie 0 (zero), retornando-se ao menu. 

4-GRAFICO permite que, respondendo a pergunta "Qual a 
serie?", seja selecionada a serie de 12 dados que serao 
apresentados graficamente. O grafico de colunas representara o 
maior dado da s£rie como a amplitude maxima permitida pela 
tela e atribuira aos demais dados amplitudes proporcionais. Apos 
a apresentagao do grafico na tela, bastara pressionar a tecla NEW 
LINE ou ENTER para retornar ao menu. 

Para produzir copia do programa em fita, podem ser utilizadas as 
duas ultimas linhas do mesmo. 

Recomendagao: Nao se executa o programa utilizando o 
comando RUN, pois o mesmo destruira os dados armazenados. 
Utiliza-se o comando GOTO 2d 


_ Tela 1 J.- 

r -- 


ESTATISTICA 

1- IMPLANTACAO 

2- MANUTENCAO 

3- ATUALIZACAO 

4- GRAFICO 

5- FIM 


U_ J 
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IMPLANTACAO 
QUALASERIE? (1/2/3/4/5) 
DIGITE ASERIE 


00000000 


00000000 

CONTINUA? (S/N) 


Tela 3 | 


MANUTENCAO 
QUALASERIE? (1/2/3/4/5) 

00000000 00000000 

• • 


00000000 00000000 
QUAL DADO ALTERAR? (1 A 12) 









Tela 4 



Li stage m 


2 REM 
4 REM 
6 DIM 

20 CLS 

21 FAST 

22 PRINT 
24 PRINT 
26 PRINT 
28 PRINT 
30 PRINT 
32 PRINT 
38 INPUT 
40 IF 

42 GOTO 
100 CLS 
102 PRINT 
104 PRINT 
106 INPUT 


ESTATISTICA 

AUTOR: LOU RIVAL KARSTEN 
K (60) 


AT 0,6; "ESTATISTICA” 

AT 2,0; "1-IMPLANTACAO” 

AT 4,0; "2-MANUTENCAO” 

AT 6,0; "3-ATUALIZACAO” 

AT 8,0; "4-GRAFICO” 

AT 10,0; "5-FIM” 

Z 

Z > 5 OR Z < 1 THEN GOTO 38 
Z* 100 

AT 0,6; "IMPLANTACAO” 

AT 2,0: "QUAL A SERIE? (1/2/3/4/5) 
L 







107 IF L < 1 OR L > 5 THEN GOTO 106 

108 PRINT L 

110 PRINT AT 4,0; "DIGITE A SERIE:" 

112 PRINT 

114 FOR X — 1 TO 12 
116 INPUT K ((L*12)—12 + X) 

118 PRINT , AT (5+X), 10; K ((L*12)-12 + X) 

120 NEXT X 

122 PRINT AT20,0; "CONTINUA? (S/N)" 

124 INPUT ZS 

126 IF Z$ = "S" THEN GOTO 100 

128 GOTO 20 
200 CLS 

202 PRINT AT 0, 7; "MANUTENCAO" 

204 PRINT AT2,0; "QUAL A SERIE? (1/2/3/4/5)" 

206 INPUT L 

208 IF L - 0 THEN GOTO 20 

210 IF L < 1 OR L > 5 THEN GOTO 206 

212 PRINT L 

214 FOR X = 1 TO 12 

216 PRINT AT (5+X}, 10; K (0/12)-12+X) 

218 NEXT X 

220 PRINT AT 20,0; "QUE DADO ALTERAR? (1 a 12)" 
222 INPUT M 

224 IF M < 0 OR M > 12 THEN GOTO 222 

226 IF M = 0 THEN GOTO 200 

228 INPUT K |(L*12)—12 + M) 

230 PRINT AT (5+M), 20; K ((L * 12) - 12 + M) 

232 GOTO 220 

300 CLS 

302 GOSUB 350 
304 INPUT L 

306 IF L = 0 THEN GOTO 20 

308 IF L < 0 OR L > 5 THEN GOTO 304 

310 PRINT L 

312 GOSUB 372 

318 PRINT AT 20,0; "DIGITE O ULTIMO DADO" 

320 FOR X = 1 TO 11 

322 LET K ((L*12)-12+X) = K ((L*12)-11 + X) 


324 NEXT 

X 

326 INPUT 

K (L*12) 

328 CLS 


330 GOSUB 

350 

332 GOSUB 

372. 

334 PRINT 

AT 18,0; "ESTE E O NOVO CONTEUDO" 

336 PRINT 

AT 20,0; "CONTINUA? (S/N)" 

338 INPUT 

Z$ 

340 IF 

Z$ = "S" THEN GOTO 300 

342 GOTO 

20 

350 PRINT 

AT 0,6; "ATUALIZACAO" 

352 PRINT 

AT 2,0; "QUAL A SERIE? (1/2/3/4/5)"; 

354 RETURN 


372 FOR 

X = 1 TO 12 

374 PRINT 

AT (5+X), 10; K ((L*12) -12 + X) 

376 NEXT 

X 

378 RETURN 


400 CLS 


402 PRINT 

"QUAL A SERIE? 11/2/3/4/5)" 

404 INPUT 

L 

406 IF 

L < 1 OR L > 5 THEN GOTO 400 

408 CLS 


410 FOR 

X = 2 TO 39 

412 PLOT 

2,X 

414 NEXT 

X 

416 FOR 

X = 2 TO 38 STEP 4 

418 PLOT 

3,X 

420 NEXT 

X 

422 FOR 

X - 4 TO 60 

424 PLOT 

X,2 

426 NEXT 

X 

428 FOR 

X = 2 TO 13 

430 PRINT 

AT 21, 1 + (X*2); X - 1 

432 NEXT 

X 

434 FOR 

X = 2 TO 20 STEP 2 

436 PRINT 

AT X,0; 10- (X/2) 

438 NEXT 

X . 

440 LET 

Z = K ((L * 12) - 11) 

442 FOR 

X = 2 TO 12 



444 IF K ((L*12)-12+X) > Z THEN LET Z = K (|L*12)-12 + X) 

446 NEXT X 

448 LET Z = Z/18 

450 FOR X = 2 TO 13 

452 LET Y = K ((L*12) - 13 + X) 

454 LET Y = I NT Y/Z 

456 FOR T = 19 TO 20 - Y STEP -1 

458 PRINT ATT, 1 +(X * 2); (GRAPHICS + SPACE) 

460 NEXT T 

462 NEXT X 

464 INPUT ZS 

466 GOTO 20 

500 STOP 

502 SAVE "ESTATISTICA" 

504 GOTO 20 



Analise Empresarial 

Este programa de analise da situagao de uma empresa prociira os 
indices mais significativos para uma avalia<;ao da mesma. 

Os indices calculados sao: 

LIQUIDEZ GERAL, que e calculada atraves da divisao do 
Disponfvel mais o Realizavel Total (Realizavel a Curto e a Longo 
Prazo) pelo Exigivel a Curto e a Longo Prazo). 

DESPESAS FINANCEIRAS SOBRE VENDAS, que e calculado 
atraves da divisao das Despesas Financeiras do Exercicio (inclusive 
varia^ao cambial sobre emprestimos em moeda estrangeira) sobre 
as Vendas Totais. Caso este percentual esteja na faixa dos 4%, a 
situa^ao e muito boa; se for superior a 14%, a situa^ao esta 
certamente um tanto descontrolada. 

RENTABILIDADE PATRIMONIAL, que e calculada dividindo-se o 
Lucro Lfquido apos o I.R. pelo Patrimonio Lfquido. Caso o 
percentual esteja inferior a 8%, provavelmente a empresa esta 
correndo riscos demais para pouco resultado. 

RENTABILIDADE SOBRE VENDAS, que 6 obtida dividindo-se o 
Lucro Lfquido ap6s o I.R. pelas Vendas Totais. Este fndice e 
bastante flexfvel, pois e mais importante a Rentabilidade 
Patrimonial, mas um percentual de 1% ou 2% e certamente 
preocupante. 

ENDIVIDAMENTO GERAL, obtido dividindo-se o Exigivel Total 
(Exigivel a Curto e a Longo Prazo) pelo Total do Ativo. 

CAPITALIZA^AO, obtida atraves da divisao do Patrimonio Lfquido 
pelo Ativo Total. Um fndice inferior a 25% e preocupante. A 
media brasileira esta em torno de 45%. 
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Operagao 


O programa entra na tela 1, chamando um a um os dados 
necessarios para os diversos calculos. Apos a digita^ao do ultimo 
dado, entra automaticamente a tela 2 que exibe todos os 
percentuais e encerra a execugao. 

Para novos calculos deve-se retornar ao comando Run, 
reiniciando o programa. 

Para copia do programa em fita podem ser utilizadas as duas 
ultimas linhas do mesmo. 


--- | Tela 1 | __ 

-- 


LUCRO LIQUfDO APOS I.R. 
00000000 
VENDAS TOTAIS 
00000000 

DISPONIVEL+ REALIZAVEL TOTAL 
00000000 
EXIGIVEL TOTAL 
00000000 
ATIVO TOTAL 
00000000 

DESP. FINANCEIRAS 
00000000 

PATRIMONIO LIQUIDO 
00000000 


V_ J 
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5 REM 

ANALISE EMPRESARIAL 

10 REM 

AUTOR: LOURIVAL KARSTEN 

15 PRINT 

“LUCRO LIQUIDO APOS I.R." 

20 INPUT 

L 

25 PRINT 

L 

30 PRINT 

“VENDAS TOTAIS" 

35 INPUT 

V 

40 PRINT 

V 

45 PRINT 

"DISPONIVEL + REALIZAVEL TOTAL" 

50 INPUT 

D 

55 PRINT 

D 

60 PRINT 

“EXIGIVEL TOTAL"' 

65 INPUT 

E 

70 PRINT 

E 

75 PRINT 

“ATIVO TOTAL" 

80 INPUT 

A 

85 PRINT 

A 







90 PRINT "DESP. FfNANCEIRAS” 

95 INPUT F 
100 PRINT F 

105 PRINT "PATRIMONIO LIQUIDO" 

110 INPUT P 
115 PRINT P 
120 PAUSE 100 
125 CLS 

127 PRINT "ANALISE EMPRESARIAL" 

128 PRINT 

130 PRINT "LIQUIDEZ GERAL EH..."; D/E * 100; " 0/0" 

135 PRINT 

140 PRINT "DESP. FINANCEIRAS DE"; F/V * 100; " 0/0" 
145 PRINT 

150 PRINT "RENTAB. PATRIMONIAL.."; L/P * 100; " 0/0" 
155 PRINT 

160 PRINT "RENTAB. SOBRE VENDAS"; L/V * 100; " 0/0" 
165 PRINT 

170 PRINT "ENDIVIDAMENTO GERAL"; E/A * 100; " 0/0" 
175 PRINT 

180 PRINT "CAPITALIZACAO.P/A * 100; " 0/0" 

185 STOP 

190 SAVE "ANALISE" 

195 RUN 




Analise de Balanco 


O balango da empresa e a pega fundamental para a avaliagao do 
desempenho da mesma. A evolugao dos diversos indices nos 
fornece subsidios para a avalia^ao do risco da mesma. Isto e 
importante nao so para acionistas e credores, como ainda para 
ciientes e colaboradores. 

Para esta analise, elaboramos uma s£rie de quatro programas que 
analisam diferentes aspectos da empresa, de uma forma global. 

Estes programas foram escritos para micros que utilizem o BASIC e 
a arquitetura das maquinas Sinclair (TK, NE, CP). Ainda assim, 
podem ser facilmente convertidos para qualquer outro micro, 
alterando-se apenas algumas instru^oes. 

Para o referido trabalho, utilizamos como padrao urn piano de 
contas que reproduzimos a seguir. Caso haja alguma diferenga de 
nomenclatura em relagao ao balango a ser analisado, basta 
verificar a sua localizagao no balango. 


Ativo 


1.1 - ATIVO CIRCULANTE 

1.1.1 - BENS NUMERARIOS 

1.1.2 - DEPOSITOS BANCARIOS A VISTA 

1.1.3 - TITULOS VINCULADOS AO MERCADO ABERTO 

1.1.4 - ESTOQUES 

1.1.4.1 - MATERIAS-PRIMAS 

1.1.4.2 - MATERIAS-PRIMAS AUXILIARES 

1.1.4.3 - MATERIAL DE EMBALAGEM 

1.1.4.4 - MATERIAL DE CONSUMO 

1.1.4.5 - MATERIAL DE MANUTENCAO 

1.1.4.6 - PRODUTOS ACABADOS 

1.1.4.7 - PRODUTOS EM ELABORACAO 
1.1.5- CREDITOS 
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1.1.5.1 - CHEQUES A RECEBER 

1.1.5.2 - CONTAS A RECEBER DE CLIENTES DO EXTERIOR 

1.1.5.3 - DUPLICATAS A RECEBER 

1.1.5.4 - TITULOS DESCONTADOS ( - ) 

1.1.5.5- PROVISAO PARA DEVEDORES DUVIDOSOS { - ) 

1.1.5.6- EMPRESAS SUBSIDIARIAS OU CO LI G ADAS 

1.1.5.7 - ADIANTAMENTO PARA FORNECEDORES 

1.1.5.8 - ADIANTAMENTO PARA EMPREGADOS 

1.1.5.9 - ADIANTAMENTOS PARA REPRESENTANTES 

1.1.5.10 - DEPOSITOS BANCARIOS VINCULADOS 
1.1.6 - DESPESAS DIFERIDAS 

1.2 - REALIZAVEL A LON GO PRAZO 

1.2.1 - OUTROS CREDITOS/VALORES E BENS 

1.2.1.1 - DEPOSITOS COMPULSORIOS 

1.2.1.2 - INCENTIVOS FISCAIS A APLICAR 
1.3 - ATI VO PERMANENTE 

1.3.1 - INVESTIMENTOS 

1.3.1.1 - PARTICIPATES EM OUTRAS EMPRESAS 

1.3.1.2- PARTICIPATES POR INCENTIVOS FISCAIS 

1.3.2- IMOBILIZADO 

1.3.2.1 - VALORES CORRIGIDOS 

1.3.2.2 - DEPRECIACOES ( - )' 

1.3.3- DIFERIDO 

1.3.3.1 - DESPESAS PRE OPERACIONAIS A AMORTIZAR 
1 - TOTAL DO ATIVO 


Pass i VO 


2.1 - PASSIVO CIRCULANTE 

2.1.1 - FORNECEDORES 

2.1.2- INSTITUTES FINANCEIRAS 

2.1.3- PROVISOES 

2.1.3.1 - IMPOSTO DE RENDA 

2.1.3.2 - FERIAS 

2.1.3.3 -13 SALARIO 

2.1.4- OUTRAS 

2.1.4.1 - OBRIGACOES COM PESSOAL 






2.1.4.2 - OBRIGACOES PREV1DENCIARIAS 

2.1.4.3 - OBRIGACOES TRIBUTARIAS 

2.1.4.4 - DIVIDENDOS PROPOSTOS 

2.1.4.5- PARTICIPACAO DOS ADMINISTRADORES 

2.1.4.6 - EMPRESA CONTROLADORA 

2.1.4.7 - DIRETORI A E ACIONISTAS 

2.1.4.8 - REPRESENTANTES 

2.1.4.9 - OUTRAS CONTAS 

2.2 - PASSIVO EXIGIVEL A LONGO PRAZO 

2.2.1 - INSTITUICOES FINANCEIRAS 

2.2.2 - OUTRAS EXIGIBILIDADES 
2.3 - PATRIMONIO LIQUIDO 

2.3.1 - CAPITAL SOCIAL 

2.3.2 - RESERVA DE CAPITAL 

2.3.2.1 - RESERVA DE CORRECAO MONETARIA DO CAPITAL 

2.3.2.2 - RESERVA PROVENIENTE DE INCENTIVOS FISCAIS 
2.3.3 - RESERVA DE LUCROS 

2.3.3.1 - RESERVA LEGAL 
2.3.3.2- LUCROS EM SUSPENSO 

2.4 - LUCROS ACUMULADOS 
2 - TOTAL DO PASSIVO 


Demonstrativo de Resultado 


3.1 - RECEITA BRUTA DAS VENDAS E SERVICOS 

3.1.1 - VENDAS DE PRODUTOS, MERCADORIAS E SERVICO 

3.1.1.1 - RECEITAS DE VENDAS NO MERCADO INTERNO 

3.1.1.2 - RECEITAS DE VENDAS NO MERCADO EXTERNO 

3.1.1.3 - RECEITAS DE INCENTIVOS DE EXPORTACAO 
3.1.2 - DEDUCOES DE VENDAS ( - ) 

3.1.2.1 - DEVOLUCOES DE MERCADORIAS 

3.1.2.2 - IMPOSTO SOBRE CIRCULACAO DE MERCADORIAS - ICM 

3.1.2.3 - PIS SOBRE FATURAMENTO 

3.1.2.4 - IMP. SOBRE SERV. DE QUALQUER NATUREZA - ISSQN 
3.1.2.5- FUNDO DE INVESTIMENTO SOCIAL - FINSOCIAL 

3.2 - RECEITA LIQUIDA DAS VENDAS E SERVICOS 

3.2.1 - CUSTO DOS PRODS. MERCAD. E SERV. VENDIDOS ( - ) 



3.3 - LUCRO OPERACIONAL BRUTO 

3.3.1 - DESPESAS COM VENDAS ( - ) 

3.3.1.1 - COMISSOES DE VENDAS 

3.3.1.2 - PROPAGANDA E PUBLICIDADE 

3.3.1.3 - OUTRAS DESPESAS 
3.3.2- DESPESAS GERAIS ( - ) 

3.3.2.1 - HONORARIOS DA DIRETORIA 

3.3.2.2 - IMPOSTOS E TAXAS DIVERSAS 

3.3.2.3 - DESPESAS ADMINISTRATIVAS 

3.3.2.4- DESPESAS FINANCEIRAS MENOS RECEITAS FINANCEIRAS 
3.3.2.5 - OUTRAS DESPESAS 

3.3.3 - DEPRECIACOES NAO INCLUIDAS NOS CUSTOS ( - ) 

3.3.4 - PROVISAO PARA DEVEDORES DUVIDOSOS ( - ) 

3.4 - LUCRO OU PREJUIZO OPERACIONAL 

3.4.1 - RECEITAS NAO OPERACIONAIS 

3.4.2 - DESPESAS NAO OPERACIONAIS 

3.4.3 - CORRECAO MONETARIA DO BALANCO 

3.5- LUCRO/PREJUIZO DO EXERC. ANTES DO IMPOSTO DE RENDA 

3.6 - IMPOSTO DE RENDA 

3.7 - LUCRO/PREJUIZO DEPOIS DO IMPOSTO DE RENDA 
3 - TOTAL DE RESULTADOS 



Analise Financeira 


O primeiro programa da serie, destinado a analise financeira, 
calcuia cinco diferentes indices que sao: 



1 - SOLVENCIA 1MEDIATA, que fornece a relaijao entre o 
Dispomvel (Bens Numerarios + Depositos banc^rios a vista + 
Tftulos vinculados ao mercado aberto) em relagao ao Exigfvel a 
Curto Prazo (Passivo Circulante). 

A fdrmula 6: 


1.1.1 + 1.1.2 + 1.1.3 

2.1 


X100 


2 - SOLVENCIA SECA, que e o fndice obtido atraves da divisao do 
Disponfvel mais os direitos a curto prazo (Ativo Circulante menos 
Estoque e menos Adiantamentos a Fornecedores) pelo Passivo 
Circulante (Exigivel a Curto Prazo). 

Calculado pela formula: 


1.1 - 1.1.4- 1.1.5.7 

2.1 


X 100 


3 - SOLVENCIA CORRENTE, que fornece urn indice que e o 
produto da divisao do Ativo Circulante (Disponfvel mais 
Reaiizavel a curto prazo) pelo Passivo Circulante (Exigivel a Curto 
Prazo). 

Usando os codigos do Plano de Contas, a formula fica assim: 

1.1 

— X100 

2.1 
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4 - SOLVENCIA GERAL 6 o mdice obtido atraves da divisao do 
Ativo Circulante mais Reaiizavel a Longo Prazo pelo Passivo 
Circulante mais o Exigfvel a Longo Prazo. 






A formula e: 


1.1 + 1.2 


X 100 


2.1 + 2.2 


5 - QUOCIENTE DE SATURA^AO, que e obtido atraves da divisao 
do capital de giro a curto prazo (Ativo Circulante menos Passivo 
Circulante) pelo Exigivel a Longo Prazo. 

A formula e a seguinte: 


2.2 

Para cada indice, na tela aparecera a significagao do mesmo em 
relagao ao que e considerado academicamente como normal. 
Aparecera ainda uma sucinta explicagao a respeito de cada um, 
bem como o demonstrative de todos os valores que compoem o 
calculo do mesmo. 


Operagao do Programa | 

A tela 1 (vide anexo) serve para informar os dados retirados do 
balan^o que servirao para o calculo dos diversos indices. O 
programa so interrompera esta rotina apos a digita^ao de todos os 
dados. 

Na tela 2, que aparecera logo a seguir, pode-se observar o menu 
que nos oferece 7 (sete) alternativas. Para acessar qualquer das 
rotinas oferecidas, basta digitar o numero que antecede a 
alternativa desejada, seguida de ENTER ou NEW LINE, 
dependendo do seu micro. 

Digitando-se 1, obtemos a tela 3, relativa a rotina 1-SOLVENCIA 
IMEDIATA - que produz um completo demonstrative do calculo 
deste fndice, bem como uma avalia^ao tecnica do mesmo. 

A digita^ao do numero 2 provoca o desvio para a rotina 
2-SOLVENCIA SECA, que produz a tela 4 onde encontramos o 
demonstrative do calculo do indice bem como a sua avalia<;ao- 



A rotina 3-SOLVENC1A CORRENTE produz a tela 5, demonstra o 
c<£lculo do indice e fornece a sua avaliagao segundo padroes 
academicos. 

A rotina 4-SOLVENCIA GERAL, que monta a tela 6, tambem 
demonstra os dados utilizados no calculo, os valores envolvidos e 
a significagao do mesmo segundo padroes academicos. 

A rotina 5-QUOCIENTE DE SATURACAO produz a tela 7 onde e 
demonstrado o calculo deste indice e exibida uma mensagem 
sobre a avaliagao t£cnica do mesmo. 

A escolha da rotina 6-TODOS provocara o aparecimento das telas 
3 a 1, na sequencia. Para passar de uma tela a outra, basta 
pressionar a tecla ENTER ou NEW LINE. 

A ultima opgao - 7-NENHUMA - encerra a execugao do 
programa. Para produzir copia do programa podem ser utilizadas 
as duas ultimas linhas. 

Obs.: Devido ao limite de 8 (oito) digitos para numeros, 
recomenda-se a digitagao de todos os dados em Cr$ 1.000.000,00 
(milhoes de cruzeiros). 

___ | Tela 1 | - 

I / 

INFORME OS DADOS: 

BENS NUMERARIOS 
00000000 

DEPOSITOS BANC. A VISTA 
00000000 

TITULOS VINCUL. MERCADO ABERTO 
00000000 

PASSIVO CIRCULANTE 
00000000 

ATI VO CIRCULANTE 
00000000 

REALIZAVEL A LONGO PRAZO 
00000000 

EXIGIVEL A LONGO PRAZO 
00000000 
ESTOQUES 
00000000 

ADIANTAMENTOS A FORNECEDORES 
00000000 

V___ 
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VOCE QUER? 

1- SOLVENCIA IMEDIATA 

2- SOLVENCIA SECA 

3- SOLVENCIA CORRENTE 

4- SOLVENCIA GERAL 

5- QUOCIENTE DE SATURACAO 

6- TODOS 

7- NENHUM 


-—- 1 Tela 3 

SOLVENCIA IMEDIATA 

DISPONIVEL EM RELACAO AO 
EXIGIVEL A CURTO PRAZO 

BENS NUMERARIOS 00000000 
( + ) DEPOSITOS BANC. A VISTA 
00000000 

( + ITITULOS VINCUL. MERCADO ABERTO 
00000000 

( / ) PASSIVO CIRCULANTE 
00000000 

( * ) SOLVENCIA IMEDIATA 
00000000 

ESTE INDICE EH 

X_ mensagem _X 

< ENTER > PARA TROCAR TELA 









f 


-| Tela 4 \ 


SOLVENCIA SECA 

DISPONIVEL MAIS DIREITOS A CURTO 
PRAZO SOBRE 0 EXIGIVEL A CURTO 
PRAZO 

ATIVO CIRCULANTE 
00000000 

( - )ESTOQUES 00000000 
( - ) ADIANTAMENTOS A FORNECEDORES 
00000000 

( / ) PASSIVO CIRCULANTE 
00000000 

{ = ) SOLVENCIA SECA 
00000000 

ESTE INDICE REPRESENTA 
X_mensagem_X 

< ENTER > PARA TROCAR TELA 

_ ’ _ / 


- - L-TelaS | - 

\ 

SOLVENCIA CORRENTE 

DISPONIVEL MAIS REALIZAVEL A 
CURTO PRAZO EM RELACAO AO 
EXIGIVEL A CURTO PRAZO 

ATIVO CIRCULANTE 
00000000 

( / ) PASSIVO CIRCULANTE 
00000000 

( = | SOLVENCIA CORRENTE 
00000000 

ESTE INDICE INDICA: 

X_mensagem_X 

< ENTER > PARA TROCAR FITA 

J 









SOLVENCIA GERAL 


ATIVO CIRCULANTE MAIS REALIZAVEL 
A LONGO PRAZO DIVIDIDO PELO 
PASSIVO CIRCULANTE MAIS O 
EXIGIVEL A LONGO PRAZO 

ATIVO CIRCULANTE 
00000000 

I + > REALIZAVEL A LONGO PRAZO 
00000000 

< / ) PASSIVO CIRCULANTE 
00000000 

( + JEXfGIVEL A LONGO PRAZO 
00000000 

( = ISOLVENCIA GERAL 
00000000 

ESTE INDICE INDICA: 

X_mensagem_X 

< ENTER > PARA TROCAR TELA 

y 


■ I Tela 7 [ 


QUOCIENTE DE SATURACAO 

CAPITAL DE GIRO A CURTO PRAZO 
EM RELACAO AO EXIGIVEL A LONGO 
PRAZO 

ATIVO CIRCULANTE 
00000000 

{ - } PASSIVO CIRCULANTE 
00000000 

{ / ) EXIGIVEL A LONGO PRAZO 
00000000 

{ = ) QUOCIENTE DE SATURACAO 
00000000 

0 QUOCIENTE INDICA: 

X_mensagem_X 

< ENTER > PARA TROCAR TELA 








Listagem 


2 REM 

ANALISE FINANCEIRA 

4 REM 

AUTOR: LOU RIVAL KARSTEN 

6 LET 

AS = "BENS NUMERARIOS" 

8 LET 

BS = "DEPOSITOS BANC. A VISTA" 

10 LET 

CS = "TITULOS VINCUL. MERCADO ABERTO' 

12 LET 

DS = "PASSIVO CIRCULANTE" 

14 LET 

E$ = "ATIVO CIRCULANTE" 

16 LET 

FS = "REALIZAVEL A LONGO PRAZO” 

18 LET 

GS = "EXIGIVEL A LONGO PRAZO" 

20 LET 

HS = "ESTOQUES" 

22 LET 

IS = "ADIANTAMENTOS A FORNECEDORES" 

28 LET 

JS = "SOLVENCIA IMEDIATA" 

30 LET 

KS = "SOLVENCIA SECA" 

32 LET 

LS = "SOLVENCIA CORRENTE" 

34 LET 

MS = "SOLVENCIA GERAL" 

36 LET 

NS = "QUOCIENTE DE SATURACAO" 

40 PRINT 
42 PRINT 

"INFORME OS DADOS:" 

44 PRINT 

AS 

46 INPUT 

A 

48 PRINT 

A 

50 PRINT 

BS 

52 INPUT 

B 

54 PRINT 

B 

56 PRINT 

CS 

58 INPUT 

C 

60 PRINT 

C 

62 PRINT 

DS 

64 INPUT 

D 

66 PRINT 

D 

68 PRINT 

ES 

70 INPUT 

E 

72 PRINT 

E 

74 PRINT 

FS 

76 INPUT 

F 

78 PRINT 

F 



80 PRINT 

G$ 

82 INPUT 

G 

84 PRINT 

G 

86 PRINT 

HS 

88 INPUT 

H 

90 PRINT 

H 

92 PRINT 

IS 

94 INPUT 

1 

96 PRINT 

1 

102 PAUSE 

50 

104 CLS 

106 PRINT 

“VOCE QUER?" 

108 PRINT 
110 PRINT 

“1-“; J$ 

112 PRINT 
114 PRINT 

"2-"; KS 

116 PRINT 
118 PRINT 

“3-“; LS 

120 PRINT 
122 PRINT 

"Ar") MS 

124 PRINT 
126 PRINT 

“5-“; NS 

128 PRINT 
130 PRINT 

“6-TODOS" 

132 PRINT 
134 PRINT 

“7-NENHUM" 

136 INPUT 

Z 

138 IF 

Z > 7 OR Z = 0 THEN GOTO 136 

142 GOTO 

(Z* 100) + 100 

140 CLS 

150 PRINT 
152 PRINT 

“< ENTER > PARA TROCAR TELA' 

154 INPUT 

ZS 

156 GOTO 

104 

200 GOSUB 

220 

202 GOTO 

150 

220 PRINT 

JS 

222 PRINT 
224 PRINT 

“DISPONIVEL EM RELACAO AO" 



225 PRINT "EXIGIVEL A CURTO PRAZO" 

226 PRINT 

228 PRINT AS; A 

230 PRINT "( + )"; B$ , B 

232 PRINT "( + )"; CS , C 

234 PRINT "(/)"; D$ , D 

236 LET K = ((A+B + C) * 100 )/D 

238 PRINT "( = }"; J$ , K 

240 PRINT 

242 PRINT ''ESTE INDICE EH" 

244 IF K < 5 THEN PRINT "FRACO" 

246 IF K < 10 AND K > = 5 THEN PRINT "BOM" 

248 IF K < 15 AND K > = 10 THEN PRINT "OTIMO" 

250 IF K > = 15THEN PRINT "EXCESSIVO" 

252 RETURN 
300 GOSUB 320 
302 GOTO 150 

320 PRINT K$ 

322 PRINT 

324 PRINT "DISPONIVEL MAIS DIREITOS A CURTO PRAZO 
SOBRE O EXIGIVEL A CURTO PRAZO" 

326 PRINT 

328 PRINT E$ , E 

330 PRINT HS , H 

332 PRINT IS , I 

334 PRINT "(/)"; DS , D 

336 LET K = <(E- H - I) * 100}/ D 

338 PRINT "{ = )"; K$ , K 

340 PRINT "ESTE INDICE REPRESENTS' 

341 PRINT 

342 IF K < 20 THEN PRINT "EXCESSO DE RISCO" 

344 IF K < 50 AND K > - 20THEN PRINT "RISCO ACENTUADO" 

346 IF K < 70 AND K > = 50THEN PRINT "RISCO FINANCEIRO" 

348 IF K < 90 AND K > = 70 THEN PRINT "LEVE RISCO" 

350 IF K < 100 AND K > = 90 THEN PRINT "BOM RISCO" 

352 IF K < 120 AND K > = 100 THEN PRINT "SITUACAO 

FOLGADA" 

354 IF K > = 120 THEN PRINT "SITUACAO MUITO FOLGADA" 

356 RETURN 




400 GOSUB 420 
405 GOTO 150 
420 PRINT L$ 

422 PRINT 

424 PRINT "DISPONIVEL MAIS REALIZAVEL A 

CURTO PRAZO EM RELACAO AO" 

425 PRINT "EXIGIVEL A CURTO PRAZO" 

426 PRINT 

428 PRINT E$ , E 

430 PRINT "(/)"; D$,D 

432 LET K = (E/D) * 100 

434 PRINT "{ = )"; LS , K 

435 PRINT 

436 PRINT "ESTE INDICE INDICA:" 

437 PRINT 

438 IF K < 40 THEN PRINT "DESEGUILIBRIO GRAVE" 

440 IF K < 70 AND K > = 40 THEN PRINT "DESEQUILIBRIO 

AVULTADO 

442 IF K < 90 AND K > = 70 THEN PRINT "REGULAR 

DESEQUILIBRIO" 

444 IF K < 100 AND K > = 90 THEN PRINT "DEFICIENCY" 

446 IF K < 110 AND K > = 100 THEN PRINT "SOLVENCY 

REDUZIDA" 

448 IF K < 130 AND K > = 110 THEN PRINT "NORMALIDADE" 

450 IF K < 150 AND K > = 130 THEN PRINT "SATISFATORIA" 

452 IF K < 200 AND K > = 150 THEN PRINT "FOLGA" 

454 IF K < 300 AND K >= 200THEN PRINT "BASTANTE FOLGA" 

456 IF K > = 300 THEN PRINT "MUITA FOLGA" 

458 RETURN 
500 GOSUB 520 
505 GOTO 150 
520 PRINT MS 
522 PRINT 

524 PRINT "ATIVO CIRCULANTE MAIS REALIZAVEL 
A LONGO PRAZO DIVIDIDO PELO 
PASSIVO CIRCULANTE E MAIS O 
EXIGIVEL A LONGO PRAZO" 

526 PRINT 

528 PRINT E$ , E 




530 PRINT "( + )" ; F$ , F 

532 PRINT "(/}" ; DS , D 

534 PRINT "{ + )"; G$,G 

536 LET K = ({E +• F )/{D + G)) * 100 

538 PRINT "( = )"; MS, K 

539 PRINT 

540 PRINT "ESTE INDICE INDICA:" 

542 IF K < 40 THEN PRINT "GRAVE DESEQUILIBRIO" 

544 IF K < 70 AND K > = 40 THEN PRINT "MUITO 

DESEQUILIBRIO" 

546 IF K < 90 AND K > =70 THEN PRINT "DESEQUILIBRIO" 

548 IF K < 100 AND K > = 90 THEN PRINT "LEVE 

DESEQUILIBRIO" 

550 IF K < 110 AND K > = 100 THEN PRINT "APENAS 

EQUILIBRADO" 

552 IF K < 130 AND K >= 110 THEN PRINT "SITUACAO 

NORMAL" 

554 IF K < 150 AND K > = 130 THEN PRINT "SATISFATORIA" 

556 IF K < 200 AND K > = 150 THEN PRINT "FOLGA" 

558 IF K < 300 AND K > = 200THEN PRINT "BASTANTE FOLGA" 

560 IF K > = 300 THEN PRINT "EXCELENTE SITUACAO" 

562 RETURN 
600GOSUB 620 
605 GOTO 150 
620 PRINT NS 
622 PRINT 

624 PRINT "CAPITAL DE GIRO AO CURTO PRAZO 

EM RELACAO AO EXIGIVEL A LONGO PRAZO" 

626 PRINT 

628 PRINT ES , E 

630 PRINT "(-)" ; D$, D 

632 PRINT "</)" ; GS , G 

634 LET K = UE-D) * 100) / G 

636 PRINT "( = )"; NS, K 

637 PRINT 

638 PRINT "O QUOCIENTE INDICA:" 

640 PRINT 

641 IF K < 50 THEN PRINT "GRAVE SATURACAO" 

642 IF K < 70 AND K > = 50 THEN PRINT "REGULAR 

SATURACAO" 
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644 IF K < 90 AND K > = 70THEN PRINT "LEVESATURACAO" 

646 IF K < 100 AND K > = 90 THEN PRINT "SATURACAO" 

648 IF K < 150 AND K > = 100 THEN PRINT "PODE CAPTAR" 

650 IF K < 200 AND K > = 150THEN PRINT "BOA CAPACIDADE DE 
CAPTACAO" 

652 IF K > = 200 THEN PRINT "OTIMA CAPACIDADE DE 

CAPTACAO" 

654 RETURN 
700 GOSUB 220 
702 GOSUB 750 
704 GOSUB 320 
706 GOSUB 750 
708 GOSUB 420 
710 GOSUB 750 
712 GOSUB 520 
714 GOSUB 750 
716 GOSUB 620 
720 GOTO 150 
750 PRINT 

752 PRINT "< NEW LINE > PARA TROCAR TELA" 

754 INPUT Z5 
756 CLS 
758 RETURN 
800 CLS 
802 STOP 

805 SAVE "FINANCEIRA" 

810 RUN 



Analise Patrimonial 


Para a "Analise Patrimonial", utilizamos este programs que estuda 
o patrimonio sob diversos aspectos, que podem ser observados 
pelos seguintes indices: 

1 - IMOBILIZACAO DO PATRIMONIO LIQUIDO, que e urn 
mdice obtido atraves da divisao do Imobilizado Real (Ativo 
Permanente) pelo Patrimonio Liquido. 

O mesmo e calculado atraves da seguinte formula: 

1 3 

— xi m 

2.3 

2- EVOLUCAO DO PATRIMONIO LIQUIDO, que e o produto da 
divisao do Patrimonio Liquido Real pelo Capital Nominal, atraves 
da formula: 

2 3 

— xm 

2.3.1 

3- PATRIMONlO LIQUIDO NO ATIVO, que e analisado atraves de 
dois indices, sendo o primeiro o produto da divisao do Patrimonio 
Lfquido pelo Imobilizado Real (Ativo Permanente), o que e 
calculado pela formula: 

2 3 

—x m 

1.3 

e o segundo indice £ obtido atraves de Capital Liquido de 
Opera^ao (Ativo Circulante mais Realiz&vel a Longo Prazo menos 
Passivo Circulante menos Exigfvel a Longo Prazo) dividido pelo 
Patrimonio Liquido, calculado atraves da fdrmula: 

0.1 + '• 2 >- i ( 2 -1 + 2 - 2 ) x m 

2.3 

4 - ENDIVIDAMENTO, que e calculado pela divisao do Passivo 
Real (Passivo Circulante mais Exigfvel a Longo Prazo) pelo Ativo 




R^al, atraves da formula a seguir que se baseia na ciassifica^ao 
dada as contas no piano de contas-padrao: 

2 1+22 

— —x m 

i 

5 - GARANTIA DO CAPITAL ALHEIO, que e o fndice obtido pela 
divisao do Patrimonio Liquido pelo Passivo Real (Passivo 
Circulante mais Exigfvel a Longo Prazo), calculado atraves da 
formula: 

2 3 

__—— x m 

2.1 + 2.2 

Para o terceiro e o ultimo indices, o programa preve a exibi^ao de 
uma linha com comentarios sobre a classificagao do fndice 
calculado com um padrao academico. 

Todos os codigos utilizados nas formulas foram extrafdos do Plano 
de Contas Padronizado que faz parte integrante deste trabalho. 


Operagao do Programa g 

A primeira tela apresentada pelo programa (tela 1) e a que solicita, 
um a um, os dados necessarios para calcular os indices. 

Esta rotina so e interrompida quando o ultimo dado tiver sido 
informado. 

Imediatamente apos a digita^ao do ultimo dado e exibida a tela 2, 
que e o menu do programa, listando todos os indices que o 
programa calcula. Para calcular qualquer um dos Indices basta 
digitar o numero que precede o fndice desejado. 

Digitando 1, obtem-se a rotina (l)IMOBILIZA(^AO PATRIM. LIQ. 
que, atraves da tela 3, produz o demonstrative deste fndice. 

A rotina (2)EVOLUCAO PATRIM. LIQUIDO exibe a tela 4, que 
demonstra todos os dados envolvidos no calculo do fndice. 

A tela 5,. produzida pela rotina (3) PATRIM. LIQ. NO ATI VO, 



calcula dois indices, produzindo um demonstrative para cada urn, 
e exibe uma mensagem de analise relativa ao primeiro fndice 
calculado. 

A rotina (4)ENDlVIDAMENTO mostra a tela 6 onde £ 
demonstrado o fndice de endividamento da empresa. 

A rotina (5)CARANTIA CAPITAL ALHEIO demonstra, atraves da 
tela 7, o fndice, mostrando uma mensagem de avaliagao tecnica 
domesmoem confronto com pad roes. 

A opgao pela rotina (6)TODOS permite a visualiza^ao de todos os 
indices calculaveis pelo programa, mostrando sucessivamente as 
telas 3 a 7. Para trocar de tela basta pressionar a tecla ENTER ou 
NEW LINE. 

A dltima op^ao oferecida — (7)NENHUM — interrompe a 
execugao do programa. 

Para se fazer copia do programa em fita, podem ser utilizadas as 
duas ultimas I in has do programa. 


4 Tela 1 j - 


INFORME OS DADOS: 

ATIVO PERMANENTE 
00000000 

PATRIMONIO LIQUIDO 
00000000 
CAPITAL SOCIAL 
00000000 

ATIVO CIRCULANTE 
00000000 

REAL. LONGO PRAZO 
00000000 

PASSIVO CIRCULANTE 
00000000 

EXIG. LONGO PRAZO 
00000000 
TOTAL DO ATIVO 
00000000 








Tela 2 


VOCE QUER? 

(DIMOBILIZADO PATRIM. LIQ. 

(2IEVOLUCAO PATRIM, LIQUIDO 

(3) PATRIM. LIQ. NO ATI VO 

(4}ENDIVIDAMENTO 

(5IGARANTIA CAPITAL ALHEIO 

(6ITODOS 

(7INENHUM 


Tela 3 


IMOBILIZACAO PATRIM. LIQUIDO 

IMOBILIZADO REAL EM RELACAO AO PATRIMONIO LIQUIDO REAL 

ATIVO PERMANENTE 00000000 

(/)PATRIMONIO LIQUIDO 00000000 

( = )IMOBILIZACAO PATRIM. LIQUIDO = 00000000 

< ENTER > PARA TROCAR TELA 










86 







Tela 6 


r 

ENDIVIDAMENTO 


PASSIVO REAL/ATI VO REAL 


PASSIVO CIRCULANTE 

00000000 

( + )EXIG. LONGO PRAZO 

00000000 

(/)TOTAL DO ATIVO 

00000000 

{=) EN DIVI DAM ENTO = 

00000000 

< ENTER > PARA TROCAR TELA 


V_ _ 

J 


( 

> 

GARANTIA CAPITAL ALHEIO 


PATRIMONIO LIQUIDO/PASSIVO REAL 


PATRIMONIO LIQUIDO 

00000000 

(/IPASSIVO CIRCULANTE 

00000000 

( + )EXIG. LONGO PRAZO 

00000000 

( = )GARANTIA CAPITAL ALHEIO = 

00000000 

ESTE INDICE INDICA: 


X mensaaem X 


< ENTER > PARA TROCAR TELA 

v___ 

J 






Listagem 



2 REM 

ANALISE PATRIMONIAL 

4 REM 

AUTOR: LOURIVAL KARSTEN 

6 LET 

AS = "ATIVO PERMANENTE" 

8 LET 

BS = "PATRIMONIO LIQUIDO" 

10 LET 

CS = "CAPITAL SOCIAL" 

12 LET 

DS = "ATIVO CIRCULANTE" 

14 LET 

ES = "REAL. LONGO PRAZO" 

16 LET 

FS = "PASSIVO CIRCULANTE" 

18 LET 

GS = "EXIG. LONGO PRAZO" 

20 LET 

HS = "TOTAL DO ATIVO" 

22 LET 

IS = "IMOBILIZACAO PATRIM. LIQ." 

24 LET 

JS - "EVOL'JCAO PATRIM. LIQUIDO' 

26 LET 

KS = "PATRIM. LIQ. NO ATIVO" 

28 LET 

LS = "ENDIVIDAMENTO" 

30 LET 

31 CLS 

MS - "GARANTIA CAPITAL ALHEIO' 

32 PRINT 
34 PRINT 

"INFORME OS DADOS:" 

36 PRINT 

AS 

38 INPUT 

A 

40 PRINT 

A 

42 PRINT 

BS 

44 INPUT 

B 

46 PRINT 

B 

48 PRINT 

CS 

50 INPUT 

C 

52 PRINT 

C 

54 PRINT 

DS 

56 INPUT 

D 

58 PRINT 

D 

60 PRINT 

ES 

62 INPUT 

E 

64 PRINT 

E 

66 PRINT 

FS 

68 INPUT 

F 

70 PRINT 

F 




72 PRINT GS 
74 INPUT G 
76 PRINT G 
78 PRINT HS 
80 INPUT H 
82 PRINT H 
84 PAUSE 50 
86CLS 

88 PRINT "VOCE QUER?" 

90 PRINT 

92 PRINT "(1)"; IS 
94 PRINT 

96 PRINT "(2)"; JS 
98 PRINT 

100 PRINT "(3)"; KS 
102 PRINT 

104 PRINT "(4)''; LS 
106 PRINT 

108 PRINT "(5)"; MS 
110 PRINT 

112 PRINT "|6)TODOS" 

114 PRINT 

116 PRINT "(7)NENHUM" 

118 INPUT Z 

120 IF Z > 7 OR Z = 0 THEN GOTO 118 

122 CLS 

124 GOTO (Z* 100) + 100 
150 PRINT 

152 PRINT " < NEW LINE > PARA TROCAR TELA" 

154 INPUT ZS 
156 GOTO 86 
200 GOSUB 220 
202 GOTO 150 
220 PRINT IS 
222 PRINT 

224 PRINT "IMOBILIZADO REAL EM RELACAO AO"; B$; " 
226 PRINT 

228 PRINT AS; AT 5,23; A 
230 PRINT "(/)"; BS; AT 7,23; B 


REAL" 




232 LET 

233 PRINT 

234 PRINT 
236 RETURN 
300 GOSUB 
302 GOTO 
320 PRINT 
322 PRINT 
324 PRINT 
326 PRINT 
328 PRINT 
330 PRINT 
332 PRINT 
334 LET 
336 PRINT 
338 RETURN 
400 GOSUB 
402 GOTO 
410 PRINT 
412 PRINT 
414 PRINT 
416 PRINT 
418 PRINT 

420 PRINT 

421 PRINT 

422 LET 
424 PRINT 
426 PRINT 
428 IF 
430 IF 
432 IF 
434 IF 
436 IF 
438 IF 
440 IF 

442 IF 


K = IA/B) * 100 

"{ = }"; |S; " = ” K 

320 

150 

J$ 


B$; "REAL/CAPITAL NOMINAL" 


B$; AT 5,23; B 
"(/)"; C$; AT 6,23; C 

K = (B/C) * 100 

"{ = } VALOR REAL DAS ACOES - ", K 

410 

150 

K$ 

BS; "/IMOBIL. REAL" 


BS; AT 4,23; B 
"(/}"; AS; AT 5,23; A 

K = (B/A) * 100 

"( = ) IMOBILIZACOES = "; K 

"ESTE INDICE INDICA:" 

K < 40 THEN PRINT "GRAVE EXCESSO" 

K < 70 AND K > = 40THEN PRINT "GRANDE EXCESSO" 
K < 90 AND K > = 70THEN PRINT "REGULAR EXCESSO" 
K < 100 AND K > = 90 THEN PRINT "LEVE EXCESSO" 
K < 110 AND K > = 100 THEN PRINT "IMOB. PESADAS" 
K < 150 AND K > = 110THEN PRINT "IMOB. NORMAIS" 
K < 300 AND K > = 150 THEN PRINT "IMOB. 
MODERADAS" 

K < 1000 AND K > = 300 THEN PRINT "IMOB. 
REDUZIDAS" 

K > = 1000 THEN PRINT "IMOB. INSIGNIFICANTES" 


444 IF 




446 PRINT 

448 PRINT "CAPITAL LIQ. OPERACOES/ BS; " REAL" 

450 PRINT 

452 PRINT D$; AT 13,23; D 

454 PRINT "(+)"; E$; AT 14,23; E 

456 PRINT FS; AT 15,23; F 

458 PRINT GS; AT 16,23; G 

460 PRINT "{/)"; BS; AT 17,23; B 

462 LET K = ({D + E - F - G)/B) * 100 

464 PRINT "< = )"; BS; "NO GIRO TOTAL ="; K 

466 RETURN 

500 GOSUB 520 

502 GOTO 150 

520 PRINT L$ 

522 PRINT 

524 PRINT "PASS I VO REAL/ATI VO REAL" 

526 PRINT 

528 PRINT FS; AT 4,23; F 

530 PRINT "( + )"; GS ; AT 5,23; G 

532 PRINT "(/)"; HS ; AT6,23; H 

534 LET K = ((F + G)/H) * 100 

535 PRINT 

536 PRINT LS ; K 

538 RETURN 

600GOSUB 620 
602 GOTO 150 
620 PRINT MS 
622 PRINT 

624 PRINT BS;"/PAS SI VO REAL" 

626 PRINT 

628 PRINT BS; AT 4,23; B 
630 PRINT "{/)"; FS; AT 5,23; F 
632 PRINT "{+GS; AT 6,23; G 

634 LET K = (B/IF+G)) * 100 

635 PRINT 

636 PRINT "( = )"; MS;" = ", K 

637 PRINT 

638 PRINT "ESTE INDICE INDICA:" 

639 PRINT 




640 IF K < 40 THEN PRINT "GRAVE EXCESSO" 

642 IF K < 70 AND K > = 40THEN PRINT "GRANDE EXCESSO" 

644 IF K < 90ANDK > = 70 THEN PRINT "REGULAR EXCESSO" 

646 IF E < 100 AND K > = 90 THEN PRINT "LEVE EXCESSO" 

648 IF K < 150 AND K > =100'THEN PRINT"PARTIC. NORMAL" 

650 IF K < 300 AND K > = 150 THEN PRINT "PARTIC. 

MODERADA" 

652 IF K > = 300 THEN PRINT "PARTIC. REDUZIDA" 

654 RETURN 
700 GOSUB 220 
702 GOSUB 750 
704 CLS 

706 GOSUB 320 
708 GOSUB 750 
710 CLS 

712 GOSUB 410 
714 GOSUB 750 
716 CLS 

718 GOSUB 520 
720 GOSUB 750 
722 CLS 

724 GOSUB 620 
726 GOSUB 750 
728 CLS 
730 GOTO 86 
750 PRINT 

752 PRINT "< ENTER > PARA TROCAR TELA" 

754 INPUT Z$ 

756 RETURN 
800 CLS 
802 STOP 

805 SAVE "PATRIMONIAL" 

‘810 RUN 



Analise Econdmica 


O terceiro programa da serie, destinado a Analise Economica, 
exige a incorporagao de mais informagoes, pois vamos analisar a 
evolugao de um balango para outro. Estes dots baJangos, que 
chamaremos de anterior (ou ANT) e atuai (ou ATU), podem ser de 
qualquer epoca, ressalvando-se apenas que o indice refere-se ao 
periodo compreendido entre os dois. 

Note-se que em todas as formulas, quando aparece 2(dois) como 
divisor, o mesmo nao e codigo de Total do Passivo e sim o 
numero dois. 

Os indices calculaveis atraves deste programa sao: 

1- RENDIMENTO ATUAL, que e uma analise do Lucro Operaciona! 
(ou prejuizo operacional) em relagao ao Patrimonio Liquido 
Medio. Caso haja prejuizo, nao se deve esquecer de introduzir o 
sinal de menos (-) junto com o valor. O indice e calculado pela 
formula: 

-—-X 100 

2.3-ANT + 2.3-ATU 
2 

2- RENDIMENTO DEFLACIONADOR, que analisa a relagao entre 
Lucro (ou prejuizo) Operacional e o Capital de Giro Medio a 
Curto Prazo (creditos a curto prazo).E calculado atraves da 
formula: 

3 4 

_—-X 100 

(1,1-ANT - 2.1-ANT) + (1.1-ATU - 2.1-ATU) 

2 

3- REND1MENTO REAL, que analisa a relagao entre o Lucro (ou 
prejuizo) Operacional e o Capital de Giro Medio (Media do Total 
do Passivo). Este indice e calculado pela formula: 




3.4 


X 100 


2-ANT + 2-ATU 
2 


Operagao do Prog ram a 


A primeira tela apresentada pelo programa e a tela 1, que vai 
solicitando um a um todos os dados necessarios para os calculos, 
interrompendo a rotina quando for digitado o ultimo dado 
necessario. 

A tela 2 e o menu do programa, oferecendo cinco opgoes de 
rotinas; permite a escolha de qualquer das rotinas, digitando-se o 
numero que precede a mesma na tela. 

A digitagao do numero 1 acessara a rotina (l)RENDIMENTO 
ATUAL, que exibe a tela 3 onde se pode observar o demonstrative 
de calculo do mesmo. 

A rotina (2)RENDIMENTO DEFLACIONADOR demonstra na tela 4 
o I'ndice, listando todos os valores envolvidos. 

A rotina (3)RENDIMENTO REAL utiliza a tela 5 para listar os 
valores envolvidos no calculo do indice. 

A opgao 4 permite o acesso a rotina (4)TODOS que demonstrara 
todos os indices atraves das telas 3 a 5, na seqiiencia. Para passar de 
uma tela para outra, basta presssionar a tecla ENTER ou NEW LINE. 

A dltima opgao — rotina (5)NENHUM — provoca a inlerrupgao 
do programa. Para produzir copias do programa em fita, poderao 
ser utilizadas as duas ultimas instrugoes do mesmo. 



Tela 1 



VOCE QUER? 

(1) RENDIMENTO ATUAL 

(2) RENDIMENTO DEFLACIONADCjR 
<3)RENDIMENTO REAL 
(4}TODOS 

(5)NENHUM 






Tela 3 


■ 1 

-—- >| 

RENDIMENTO ATUAL 

LUCRO OPERACIONAL EM RELACAO AO PATRIMONIO LIQUIDO MEDIO 


LUCRO OPERACIONAL 00000000 

{/IPATRIM. LIQUI DO-ANT 00000000 

{ + )PATRIM. LIQUIDO-ATU 00000000 

( = )RENDIMENTO ATUAL = 00000000 

< ENTER > PARA TROCAR TELA 

___ ) 


Tela 4 | - 


RENDIM. DEFLACIONADOR 
LUCRO OPERACIONAL/CAPITAL EM GIRO MEDIO A CURTO PRAZO 
LUCRO OPERACIONAL 
(/)AT1V0 CIRCULrANT 
(-)PASSIVO CIRCULrANT 
{+ )AT1V0 CIRCULrATU 
(-)PASSIVO CIRCULrATU 


00000000 

00000000 

00000000 

00000000 


MRENDIM. DEFLACIONADOR 
< ENTER > PARA TROCAR TELA 


00000000 


96 








Tela 5 


f 

RENDIMENTO REAL 

A 

LUCRO CPERACIONAL/CAPITAL EM GIRO MEDIO 


LUCRO OPERACIONAL 

00000000 

{/IPASSIVO TOTAL-ANT 

00000000 

(+ ) PAS SI VO TOTAL-ATU 

00000000 

( = )RENDIMENTO REAL = 

00000000 

< ENTER > PARA TROCAR TELA 

V 

J 


Listagem 


2 REM 

ANALISE ECONOMICA 

4 REM 

AUTOR: LOURIVAL KARSTEN 

6 LET 

A$= 

"LUCRO OPERACIONAL" 

8 LET 

B$ = 

"PATRIM. LIQUIDO-ANT" 

10 LET 

C$ = 

"PATRIM. LIQUIDO-ATU" 

12 LET 

D$- 

"ATIVO CIRCUL.-ANT" 

14 LET 

E$— 

"ATIVOCIRCUL.-ATU" 

16 LET 

FS = 

"PASSIVO CIRCUL.-ANT" 

18 LET 

G$ = 

"PASSIVO CIRCUL.-ATU" 

20 LET 

H$ = 

"PASSIVO TOTAL-ANT" 

22 LET 

IS- ' 

'PASSIVO TOTAL-ATU" 

24 LET 

J$ = 

"RENDIMENTO ATUAL" 

26 LET 

KS= 

"RENDIM. DEFLACIONADOR' 

28 LET 

LS = 

"RENDIMENTO REAL" 

30 CLS 

31 PRINT 

"INFORME OS DADOS:" 






8 -l QOOtD<C(pCDtpOOOOQOCX>QO , vJ'^J , ^i'«J'«JO?aiCT50a5CnU1tJiai(JI^4Sv^.4^4^00 


32 PRINT 
34 PRINT AS 
36 INPUT A 
PRINT A 
PRINT BS 
INPUT B 
PRINT B 
PRINT CS 
INPUT C 
PRINT C 
PRINT DS* 

INPUT D 
PRINT D 
PRINT ES 
INPUT E 
PRINT E 
PRINT FS 
INPUT F 
PRINT F 
PRINT GS 
INPUT G 
PRINT G 
PRINT HS 
INPUT H 
PRINT H 
PRINT IS 
INPUT I 
PRINT I 
PAUSE 50 
CLS 

PRINT "VOCE QUER?" 
PRINT 

PRINT "(1)"; JS 
PRINT 

PRINT "(2)"; KS 
PRINT 

PRINT "(3)"; LS 
PRINT 

108 PRINT "<4)TODOS" 



no PRINT 

112 PRINT "(5)NENHUM'' 

114 INPUT Z 

116 IF Z > 5 OR Z = 0 THEN GOTO 114 

118 CLS 

120 GOTO (Z * 100) + 100 
150 PRINT 

152 PRINT " < ENTER > PARA TROCAR TELA” 

154 INPUT Z$ 

156 GOTO 90 
200 GOSUB 220 
205 GOTO 150 
220 PRINT JS 
222 PRINT 

224 PRINT AS; "EM RELACAO AO PATRIMONIO LIQUIDO MEDIO” 
226 PRINT 

228 PRINT AS; AT 5,23; A 

230 PRINT ”('/)"; BS; AT 6,23; B 

232 PRINT "( + )"; CS; AT 7,23; C . 

234 LET K = (A * 100/(fB + 0/2)) 

235 PRINT 

236 PRINT "( = )"; JS; " = ", K 
238 RETURN 

300 GOSUB 320 
302 GOTO 150 
320 PRINT KS 
322 PRINT 

324 PRINT AS; “/CAPITAL EM GIRO MEDIO A CURTO PRAZO” 

326 PRINT 

328 PRINT AS; AT 5,23; A 
330 PRINT ”(/)”; DS; AT 6,23; D 
332 PRINT ”(-)”; FS; AT 7,23; F 
. 334 PRINT "{+)"; E$; AT 8,23; E 
336 PRINT ”{-)”;*GS; AT 9,23; G 

338 LET K = (A * 100)/((D-F) + (E-G)/2) 

339 PRINT 

340 PRINT ”( = )”; KS; " = ”, K 
342 RETURN 

400 GOSUB 420 




402 GOTO 150 
420 PRINT LS 
422 PRINT 

424 PRINT AS; "/CAPITAL EM GIRO MEDIO" 

426 PRINT 

428 PRINT AS; AT 5,23; A 
430 PRINT "</)"; HS; AT 6,23; H 
432 PRINT "{ + )"; IS; AT 7,23; I 

434 LET K = (A/((H + l)/2))* 100 

435 PRINT 

436 PRINT "( = )"; LS; " = ", K 
438 RETURN 

500 GO SUB 220 
502 GO SUB 550 
504 CLS 

506 GOSUB 320 
508 GOSUB 550 
510 CLS 

512 GOSUB 420 
514 GOSUB 550 
516 CLS 
518 GOTO 90 
550 PRINT 

552 PRINT " < NEW LINE > PARA TROCAR TELA" 

554 INPUT ZS 

556 CLS 

558 RETURN 

600 CLS 

605 STOP 

610 SAVE "ECONOMICA" 

615 RUN 




Dado Principal Achar Montante 


Este pequeno programa financeiro, que roda em 1 kb, foi escrito 
em BASIC Sinclair e serve para calcular o principal, sabendo-se o 
montante, a taxa de juros e o tempo. 

A formula e a seguinte: 

S = P * (1 + U N 
onde: 

S = Montante 
P = Principal 

I = Taxa de juros em percentual 
N = Tempo em meses 

A tela gerada pelo mesmo e a que se encontra anexo, 
dispensando maiores comentarios. 

Para fazer copia do programa em fita, podem ser utilizadas as 
duas ultimas iinhas do mesmo. 







Listagem 


5 REM FIN I 

10 REM AUTOR: LOURIVAL KARSTEN 
20 CLS 

22 PRINT “DADO PRINCIPAL'' 

23 PRINT “ACHAR MONTANTE" 

25 PRINT AT 3,0; “PRINCIPAL?" 

30 INPUT P 

35 PRINT AT3,23; P 

40 PRINT AT5,0; “TAXA MENSAL?" 

45 INPUT I 

50 PRINT AT 5,23; I 

55 PRINT AT7,0; “TEMPO (MESES)?" 

60 INPUT N 

65 PRINT AT 7,23; N 

67 LET I = 1/100 

•70 LET X = {(1 + l)**N)*P 

75 PRINT AT 9,0; “MONTANTE EH" 

80 PRINT AT 9,23; X- 

90 PRINT AT 11,0; "OUTRO CALCULO? (S/N)" 
95 INPUT X$ 

100 IF X$ = “S" THEN GOTO 20 

105 STOP 

110 SAVE “FIN I" 

115 RUN 


102 



Dado Montante Achar Principal 


Este pequeno programa financeiro, que roda em 1 kb, foi escrito 
em BASIC Sinclair e serve para calcular o montante, sabendo-se 
o principal, a taxa de juros e o tempo. 

A formula e a seguinte: 

P = S *¥T1F 

onde: 

P = Principal 
S = Montante 

I = Taxa de juros em percentual 
N - Tempo em meses 

A tela gerada pelo mesmo e a que se encontra abaixo, 
dispensando maiores comentarios. 

Para gerar copia do programa em fita, podem ser utilizadas as 
duas ultimas linhas do mesmo. 



Tela | 

l : 



( - ^ 


DADO MONTANTE 
ACHAR PRINCIPAL 

MONTANTE? 

TAXA MEN SAL? 

TEMPO (MESES)? 

PRINCIPAL EH 
OUTRO CALCULO? (S/N) 

' _ ^ 


00000000 

00000000 

00000000 

00000000 





Listagem 


5 REM 

FIN II 

10 REM 

AUTOR: LOU RIVAL KARSTEN 

20 CLS 


22 PRINT 

"DADO MONTANTE" 

23 PRINT 

"ACHAR PRINCIPAL” 

25 PRINT 

AT 3,0; "MONTANTE?” 

30 INPUT 

S 

35 PRINT 

AT 5,0; "TAXA MENSAL?” 

40 INPUT 

1 

32 PRINT 

AT 3,23; S 

50 PRINT 

AT 5,23; 1 

55 PRINT 

AT7,0; "TEMPO (MESES)?" 

60 INPUT 

N 

65 PRINT 

AT 7,23; N 

67 LET 

1 = 1/100 

70 LET 

X = ( 1/({1 + l)**N})* s 

75 PRINT 

AT 9,0; "PRINCIPAL EH" 

80 PRINT 

AT 9,23; X 

90 PRINT 

AT 11,0; "OUTRO CALCULO? {S/N}” 

95 INPUT 

X$ 

100 IF 

X$ = "S" THEN GOTO 20 

105 STOP 


110 SAVE 

"FIN II" 

115 RUN 

4 




Dado Montante Achar Prestacao 


O presente programa financeiro, suficientemente pequeno para 
rodar em 1 kb, escrito para TK, NE ou CP, serve para calcular o 
valor de uma prestagao, sabendo-se o montante do debito, a taxa 
de juros e o numero de prestagoes. 

A formula d a seguinte: 

R = S * (1 + I) N - f 
onde: 

R = Prestagao 
S = Montante 

I = Taxa de juros em percentual 
N = Tempo (numero de prestagoes) 

Na tela em anexo, gerada pelo mesmo, poderau m-i visualizados 
mais detalhes. 

Para prepararcopia em fita, podem ser utilizadas as duas ultimas 
linhas do programa. 


r 


DADO MONTANTE 

ACHAR PRESTACAO 

MONTANTE? 

00000000 

TAXA MENSAL? 

00000000 

QUANTAS PRESTACOES? 

00000000 

PRESTACAO EH 

00000000 

OUTRO CALCULO? (S/N) 

V 

J 





Listagem 


5 REM 
10 REM 
20 CLS 

22 PRINT 

23 PRINT 
25 PRINT 
30 INPUT 
35 PRINT 
40 PRINT 
45 INPUT 
50 PRINT 
55 PRINT 
60 INPUT 
65 PRINT 
67 LET 
70 LET 
75 PRINT 
80 PRINT 
90 PRINT 
95 INPUT 

100 IF 
105 STOP 
110 SAVE 
115 RUN 


FIN III 

AUTOR: LOURIVAL KARSTEN 

“DADO MONTANTE" 

“ACHAR PRESTACAO" 

AT 3,0; “MONTANTE?" 

S 

AT 3,23; S 

AT 5,0; "TAXA MENSAL?" 

I 

AT 5,23; I 

AT 7,0; "QUANTAS PRESTACOES?" 
N 

AT 7,23; N 
I = 1/100 

X = (l/(({1 + l}**N)-1))*S 
AT 9,0; "PRESTACAO EH" 

AT 9,23; X 

AT 11,0: “OUTRO CALCULO? (S/N)" 
X$ 

X$ = "S" THEN GOTO 20 
"FIN III" 


106 





Dado Principal Achar Prestacao 


O presente programs financeiro, escrito para rodar em 1 kb em 
micro com logica Sinclair, serve para calcular o valor de uma 
prestacao, sabendo-se o valor do principal, a taxa de juros em 
percentual e o numero de prestagoes. 

A formula e a seguinte: 

p r ... in + d n 

R p (i + d n -1 
onde: 

R = P restag ao 
P = Principal 

I = Taxa de juros em percentual 
N = Numero de prestagoes 

A tela gerada pelo programs e a que se encontra abaixo, podendo 
ser consultada para maiores detalhes. 

Para preparar copia do programs em fita, podem ser utilizadas as 
duas ultimas 1 in has do mesmo, escritas com tal finalidade. 








Listagem 


5 REM 
10 REM 
20CLS 

22 PRINT 

23 PRINT 
25 PRINT 
30 INPUT 
35 PRINT 
40 PRINT 
45 INPUT 
50 PRINT 
55 PRINT 
60 INPUT 
65 PRINT 
67 LET 
70 LET 
75 PRINT 
80 PRINT 
90 PRINT 
95 INPUT 

100 IF 
105 STOP 
110 SAVE 
115 RUN 


FIN IV 

AUTOR: LOU RIVAL KARSTEN 

"DADO PRINCIPAL" 

"ACHAR PRESTACAO" 

AT 3,0; "PRINCIPAL?" 

P 

AT 3,23; P 

AT 5,0; "TAXA MENSAL?" 

I 

AT 5,23; I 

AT 7,0; "QUANTAS PRESTACOES?" 

N 

AT 7,23; N 
I = 1/100 

X = (I *((1 + l)**N))/W1 + l)**NM)*P 

AT 9,0; "PRESTACAO EH" 

AT 9,23; X 

AT 11,0; "OUTRO CALCULO? (S/N)" 

XS 

X§ = "S" THEN GOTO 20 
"FIN IV" 



Dada Prestacao Achar Montante 


O presente pequeno programs financeiro, que roda em 1 kb, 
serve para calcuiar o montante de uma dfvida, sabendo-se o valor 
da prestagao, a taxa de juros aplicada e a quantidade de 
prestagoes. 

A formula e a seguinte: 

. r> * (1 + D N -1 

5 = R *—-p- 

onde: 

S = Montante 
R = Prestagao 

I = Taxa de juros em percentual 
N = Numero de prestagoes 

A tela gerada pelo programa, que pode ser encontrada logo 
abaixo, fornece alguns detalhes adicionais. 

Para produzir copia do programa em fita, podem ser utilizadas as 
duas ultimas linhas do mesmo, escritas para tal fim. 


DADA PRESTACAO 
ACHAR MONTANTE 
PRESTACAO? 

TAXA MEN SAL? 
QUANTAS PRESTACOES? 
MONTANTE EH 
OUTRO CALCULO? (S/N) 


00000000 

00000000 

00000000 

00000000 




Li stage m 


5 REM 

FIN V 

10 REM 

AUTOR: LOURIVAL KARSTEN 

20 CLS 


22 PRINT 

"DADA PRESTACAO" 

23 PRINT 

"ACHAR MONTANTE" 

25 PRINT 

AT 3,0; "PRESTACAO?" 

30 INPUT 

R 

35 PRINT 

AT 3,23; R 

40 PRINT 

AT 5,0; "TAXA MENTAL?" 

45 INPUT 

1 

50 PRINT 

AT 5,23; 1 

55 PRINT 

AT 7,0; "QUANTAS PRESTACOES?" 

60 INPUT 

N 

65 PRINT 

AT 7,23; N 

67 LET 

1 = 1/100 

70 LET 

X = (({1 + l)**N)-1)/l*R 

75 PRINT 

AT 9,0; "MONTANTE EH" 

80 PRINT 

AT 9,23; X 

90 PRINT 

AT 11,0; "OUTRO CALCULO? (S/Nr 

95 INPUT 

XS 

100 IF 

XS = "S" THEN GOTO 20 

105 STOP 


110 SAVE 

"FIN V" 

115 RUN 





Dada Prestacao Achar Principal 


O presente programs, suficientemente pequeno para rodar em 1 
kb, serve para calcular o principal, sabendo-se o valor da 
prestagao, a taxa de juros e o numero de presta^oes. 

A formula e a seguinte: 

o n * (1 + l) N - 1 

P “ R 1(1 + l) N 
onde: 

P = Principal 
R = Prestacao 

I = Taxa de juros em percentuai 
N - Numero de prestagoes 

A tela gerada pelo programs (vide abaixo) fornece algumas 
informagoes adicionais. 

Para preparar copia do programa em fita podem ser utilizadas as 
duas ultimas linhas do programa, escritas com tal finalidade. 


DADA PRESTACAO 

ACHAR PRINCIPAL 


PRESTACAO? 

00000000 

TAXA MENSAL? 

00000000 

QUANTAS PRESTACOES? 

00000000 

PRINCIPAL EH 

00000000 

OUTRO CALCULO? (S/N) 

____^ 





Listagem 


5 REM FIN VI 

10 REM AUTOR: LOURIVAL KARSTEN 

20 CLS 

22 PRINT "DADA PRESTACAO" 

23 PRINT "ACHAR PRINCIPAL" 

25 PRINT AT 3,0; "PRESTACAO?" 

30 INPUT R 

35 PRINT AT 3,23; R 

40 PRINT AT 5,0; "TAXA MENSAL?" 

45 INPUT I 
50 PRNIT AT 5,23; I 

55 PRINT AT 7,0; "QUANTAS PRESTACOES?" 
60 INPUT N 
65 PRINT AT 7,23; N 
67 LET I = 1/100 

70 LET X = (({1 + I)**N)-1)/(I*({1 + I)**N))*R 
75 PRINT AT 9,0; "PRINCIPAL EH" 

80 PRINT AT 9,23; X 

90 PRINT AT 11,0; "OUTRO CALCULO? <S/N)' 
95 INPUT X$ 

100 IF X$ = "S" THEN GOTO 20 

105 STOP 

110 SAVE "FIN VI" 

115 RUN 



Financas VII 


Utilizando-se expansao, podemos carregar programas bem mais 
extensos, o que permite que programas como este possam ser 
utilizados com grandes vantagens para o usuario. 

O mesmo enfeixa, em um so programa, as rotinas dos programas 
FIN I, FIN II, FIN 111, FIN IV e FIN VI, apresentados nas paginas 
anteriores. 

O programa exibe uma tela (vide abaixo), que apresenta o menu 
do mesmo. Maiores explicates sobre cada rotina podem ser 
encontradas na apresentagao dos programas citados. 

Para produzir copia do programa em fita podem ser utilizados os 
comandos armazenados nas ultimas duas linhas do mesmo. 



Tela 1___, 

1 

—1 


' N 


OPCOES 

1- DADO PRINCIPAL ACHAR PRINCIPAL 

2- DADO MONTANTE ACHAR PRINCIPAL 

3- DADO MONTANTE ACHAR PRESTACAO 

4- DADO PRINCIPAL ACHAR PRESTACAO 

5- DA DA PRESTACAO ACHAR PRINCIPAL 





Li stage m 


5 REM 

FIN VII 

10 REM 

AUTOR: LOU RIVAL KARSTEN 

12 LET 

AS = “DADO PRINCIPAL ACHAR MONTANTE" 

14 LET 

BS = “DADO MONTANTE ACHAR PRINCIPAL" 

16 LET 

CS = “DADO MONTANTE ACHAR PRESTACAO 

18 LET 

DS = “DADO PRINCIPAL ACHAR PRESTACAO" 

20 LET 

ES = “DADA PRESTACAO ACHAR PRINCIPAL" 

22 LET 

FS = “PRINCIPAL?" 

24 LET 

GS = “TAXA MENSAL?" 

26 LET 

HS = “TEMPO (MESES)?" 

28 LET 

IS = "MONTANTE EH" 

30 LET 

JS = "OUTRO CALCULO? (S/N)" 

32 LET 

KS - “MONTANTE?" 

34 LET 

LS = “PRINCIPAL EH" 

36 LET 

MS = "N. PRESTACOES?" 

38 LET 

NS = "PRESTACAO EH" 

40 LET 

OS = "PRESTACAO?" 

42 LET 

50 CLS 

Y = 1 

60 PRINT 
62 PRINT 

“OPCOES" 

64 PRINT 
66 PRINT 

“1-";AS 

68 PRINT 
70 PRINT 

"2-";B$ 

72 PRINT 
74 PRINT 

“3-";CS 

76 PRINT 
78 PRINT 

"4-";DS 

80 PRINT 
82 PRINT 

“5-“;E$ 

84 PRINT 

“0";“FIM“ 

92 INPUT 

Z 

94 IF 

z > 5 THEN GOTO 92 

96 IF 

97 CLS 

Z = 0 THEN GOTO 780 
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98 GOTO Z*100 
100 PRINT AS 
105GOSUB 605 
110 GOSUB 625 
115GOSUB 645 

120 LET X = ((Y + l)**N) * P 

125 PRINT AT 9,5; IS; X 

130 GOTO 765 

200 PRINT BS 

205 GOSUB 665 

210 GOSUB 625 

215 GOSUB 645 

220 LET X = (Y/({Y + I) ** N)).* S 

225 PRINT AT 9,5; LS; X 

230 GOTO 765 

300 PRINT CS 

305 GOSUB 665 

310 GOSUB 625 

315 GOSUB 685 

320 LET X = (I/(({Y + l)**N) -Y)) * S 

325 PRINT AT 9,5; NS; X 

330 GOTO 765 

400 PRINT DS 

405 GOSUB 605 

410 GOSUB 625 

415 GOSUB 685 

420 LET X = (I *((Y + l)**N))/(((Y + l)**N) -Y) * P 

425 PRINT AT 9,5; NS; X 

430 GOTO 765 

500 PRINT ES 

505 GOSUB 705 

510 GOSUB 625 

515 GOSUB 685 

520 LET X = (({Y + l)**N)-Y)/(l *«Y + l)**N)) * R 

525 PRINT AT 9,5; LS; X 

530 GOTO 765 

600 REM SUB-ROTINAS 

605 PRINT AT 3,3; FS 

610 INPUT P 



615 PRINT 

AT 3,20; P 

620 RETURN 


625 PRINT 

AT 5,3; G$ 

630 INPUT 

1 

635 PRINT 

AT 5,20; 1 

637 LET 

1 = 1/100 

640 RETURN 


645 PRINT 

AT 7,3; H$ 

650 INPUT 

N 

655 PRINT 

AT 7,20; N 

660 RETURN 


665 PRINT 

AT 3,3; K$ 

670 INPUT 

S 

675 PRINT 

AT 3,20; S 

680 RETURN 


685 PRINT 

AT 7,3; MS 

690 INPUT 

N 

695 PRINT 

AT 7,20; N 

700 RETURN 

705 PRINT 

AT 3,3; OS 

710 INPUT 

R 

715 PRINT 

AT 3,20; R 

720 RETURN 

765 PRINT 

AT 12,0; JS 

770 INPUT 

X$ 

775 IF 

X$ = “S" THEN GOTO 20 

780 STOP 


785 SAVE 

“FIN VII" 

790 RUN 

b 





Valor Presente 


Para calcular o valor presente de um fluxo de caixa de ate 12 
periodos, pode-se utilizar o programa aqui apresentado, que 
calcula o Valor Presente atraves da formula: 


N 

vp =i; 

T=0 


CT 

(1 + R) T 


onde: 

CT = Fluxo no perfodo T, positivo quando ha entradas e negativo 
quando ha retiradas. 

R = Taxa de desconto para os periodos futuros do fluxo. 

N = Numerode periodos (Maximo de 12). 

O programa apresenta a tela abaixo, solicitando os dados um a 
um, na medida em que o anterior for informado. 

Ao final da entrada de dados e calculado o Valor Presente do fluxo. 

Para copiar o programa para fita, podem ser utilizadas as duas 
ultimas linhas do mesmo. 





Listagem 


5 PRINT AT 0,9; "VALOR PRESENTE" 

10 REM AUTOR: LOURIVAL KARSTEN 
15 DIM L{13) 

17 PRINT 

20 PRINT "NUM. PERIODOS APOS 0 ZERO' 

25 INPUT N 

26 IF N > 12 THEN GOTO 25 

27 PRINT N 

30 LET N = N + 1 
35 FOR I = 1 TO N 
40 PRINT 

45 PRINT "FLUXO NO PERIODO"; I -1; " 

50 INPUT L{l) 

52 PRINT L(l) 

55 NEXT 1 
60 PRINT 

65 PRINT "TAXA DE DESCONTO = "; 

70 INPUT D 
72 PRINT D 
75 LET D = .01 * D 
80 LET V = 0 
85 LET R — 1 
90 FOR I = 1 TO N 
95 LET V = V + L(l)/R 
100 LET R = R * {1 + D) 

105 NEXT I 

110 LET V = .001 * I NT (1000 * V + .05) 
115 PRINT 

120 PRINT "VALOR PRESENTE = V 
125 PRINT "CONTINUA? (S/N)" 

130 INPUT AS 
133 CLS 

135 if AS = "S" THEN GOTO 5 
140 STOP 

145 SAVE "PRESENTE" 

150 RUN 



DadoRAcharl 


O presente programa calcula a taxa de juros de uma compra a 
prestagao, atraves do metodo da tentativa e erro. 

Existem diversos metodos de calcular esta taxa, todos mais ou 
menos inexatos. O metodo que apresenta o menor erro para 
quaisquer taxas e prazos e o das tentativas. E, pela sua propria 
natureza, urn metodo impraticavel e, portanto, o seu melhor 
substituto sao as tabelas financeiras que calculam para cada taxa 
possivel e cada prazo urn indice que nos permite grande 
facilidade de calculo. 

Como nem sempre estao dispomveis tabeias para os calculos, 
utiliza-se o micro com logica Sinclair para fazer o dificil trabalho 
de calculo de todas as possibilidades, ate encontrar a correta. 

Desenvolvemos um programa que calcula estas possibilidades 
com intervalos de 01 por cento. Pode-se alterar o programa para 
calcular com menor grau de erro, mas isto aumentaria em muito 
o tempo de calculo que com 01 por cento fica em torno de meio 
minuto. 


Utiliza-se a seguinte formula: 


P = R * 


(1 + 1)N- 1 

I (1 + l) N 


onde: 

P = Principal a ser igualado. (Quando este for igual ou maior do’ 
que o principal menos a entrada, o c&lculo termina.) 

R = Prestagao mensal 

I = Taxa estimada. (Calculada de 01 por cento ate a taxa correta, 
em intervalos de 01 por cento). 

N = Numero de prestagoes. 

Na tela anexa podem-se observar mais detalhes. 

Para se produzir copia do programa em fita podem ser utilizadas 
as duas ultimas linhas do programa. 




Tela 


METODO: TENTATIVAS 

VALOR A VISTA? 
ENTRADA 
CRS PRESTACAO? 
QUANTAS PRESTACOES? 
TAXA DE JUROS EH 00.0 

CONTINUA? (S/N) 


00000000 

00000000 

00000000 

00000000 


Listagem 


5 REM 

PRESTACAO POR TENTATIVAS 

10 REM 

AUTOR: LOURIVAL KARSTEN 

12 CLS 

15 PRINT 

"METODO: TENTATIVAS" 

20 PRINT 

AT 3,0; "VALOR A VISTA?" 

25 INPUT 

P 

30 PRINT 

AT 3,23: P 

35 PRINT 

AT 5,0; "ENTRADA ?" 

40 INPUT 

E 

45 PRINT 

AT 5,23; E 

50 PRINT 

AT 7,0; "CRS PRESTACAO?" 

55 INPUT 

R 

60 PRINT 

AT 7,23; R 

65 PRINT 

AT 9,0; "QUANTAS PRESTACOES? 

70 INPUT 

N 

75 PRINT 

AT 9,23; N 

80 IF 

N * R < = P - E THEN GOTO 130 






85 LET 1=0 

90 LET 1 = 1 + .1 

95 LET 12 = 1/100 

100 LET P2 = {((1 + 12)**N)-1}/{I2*(<1 + I2)**N)}*R 

105 IF P2 = < (P - E) THEN GOTO 115 

110 GOTO 90 

115 PRINT AT 11,0; "TAXA DE JUROS EH"; I 
120 PRINT "A AO MES" 

125 GOTO 145 

130 PRINT AT 11,0; "NAO EH CALCULAVEL" 

145 PRINT AT 14,0; "CONTINUA? (S/N}" 

150 INPUT ZS 

155 IF Z$ = "S" THEN GOTO 12 
160 STOP 

165 SAVE "TENTATIVAS" 

170 RUN 




Poupanca 




Este programa permite o calculo do montante conseguido atraves 
da capitalizagao de depositos efetuados mensalmente 6m uma 
caderneta de poupanca. E permitido tanto depositos quanto 
retiradas durante o mes, sendo juros e corregao monetaria 
calcuiados sobre o menor saldo. 

Os juros sao calcuiados automaticamente. 

Na tela a seguir podem ser observados maiores detalhes a respeito 
deste calculo, incluindo as informagoes que sao solicitadas pelo 
programa. 

Para copiar o programa, utilize as duas ultimas linhas do mesmo 
que foram escritas para ta! finalidade. 


- -1 Tela J-— 1 


r 

- 1 



POUPANCA 




SALDO INICIAL? 

00000000 



CORRECAO MONETARIA 

00000000 



RETIRADA NO MES? 

00000000 



DEPOSITO NO MES? 

00000000 



RENDIMENTOS 

00000000 



APOS 0000 MESES, SALDO 

00000000 



CONTINUA? (S/N) 





_ > 


_ 
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Listage m 


5 REM CALCULO DE POUPANCA 
10 REM AUTOR: LOURIVAL KARSTEN 
12 LET Z = 0 

15 PRINT "bbbbbbbbbPbObUbPbAbNbCbAbbbbbbbb" 
20 PRINT AT3,0; "SALDO INICIAL?'' 

25 INPUT C 
30 PRINT AT3,23; C 

35 PRINT AT5,0; "CORRECAO MONETARIA? /" 

40 INPUT M 

45 PRINT AT 5,23; M; " " 

50 PRINT AT 7,0; "RETIRADA NO MES?" 

55 INPUT R 
60 PRINT AT 7,23; R; " 

65 PRINT AT 9,0; "DEPOSITO NO MES?" 

70 INPUT D 
75 PRINT AT 9,23; D; " 

80 LET K = <M + .5)/100 
85 LET C = C - R 
90 LET L = C * K 
95 LET C = C + L + D 
100 LET Z = Z + 1 

105 PRINT AT 11,0; "RENDIMENTOS"; AT 11,23; L; " 

110 PRINT AT 13,0; "APOS ";Z; "MESES, SALDO''- AT 13 

C; " 

115 PRINT AT 15,0; "CONTINUA? (S/N)" 

120 INPUT Z$ 

125 IF Z$ < > “S" THEN GOTO 140 
127 CLS 

130 PRINT AT 3,0; "SALDO INICIAL: " AT 3 23- C " 

135 GOTO 35 
140 STOP 

145 SAVE "POUPANCA" 

150 RUN 



Montante Acumulado 


Um capital empregado em algumas formas de aplica^ao pode 
render juros sobre juros, capitaliza^ao diariamente (OVER), 
semanaimente (OPEN), mensalmente, trimestralmente etc. 

Esta capitaliza^ao aumenta significativamente a taxa efetiva de 
rendimento. 

O programa que aqui apresentamos calcula esta forma de 
capitaliza<;ao, calculando juros sobre juros para cada periodo 
informado. 

A formula utilizada e a seguinte: 

S = P * (1 + l) N 
onde: 

S = Valor acumulado no final da aplica^ao. 

P = Valor inicial investido. 

I = Taxa de juros ao periodo. 

N = Numero de penodos da aplica^ao. 

Para produzir copia deste programa, que roda em 1 kb, podem 
ser utilizadas as duas ultimas linhas do mesmo. 




Listage m 


5 REM 
10 REM 
12 CLS 
15 PRINT 
20 INPUT 
25 PRINT 
30 PRINT 
35 INPUT 
40 PRINT 
45 PRINT 
50 INPUT 
55 PRINT 
60 LET 
65 LET 
85 PRINT 
90 PRINT 
92 PRINT 
94 PRINT 

96 PRINT 

97 PRINT 

98 PRINT 
100 INPUT 
102 IF 

104 GOTO 
106 STOP 
108 SAVE 
110 RUN 


MONTANTE ACUMULADO 
AUTOR: LOURIVAL KARSTEN 

"O CAPITAL EH" 

C 

C 

"TAXA DE JUROS AO PERIODO' 

J 

J 

"PERIODOS" 

P 

P 

J = J/100 

T = (0 + J)**P)* C 
"O CAPITAL"; C 

" A ";J+100;" ./. AO PERIODO" 
"DURANTE ";P; " PERIODOS" 
"RESULTAEM CRS T 

AT 15,0; "CONTINUA? (S/N)" 

Z$ 

Z$ < > "S" THEN GOTO 106 
12 

"MONTANTE" 



Atraso Composto 


1 


Alguns titulos nao sao pagos no vencimento e estao sujeitos a juros. 

Caso se queira cobrar uma taxa nominal de juros, por exemplo 
8% a.m., basta calcular os juros ao mes, dividir por 30 e 
multiplicar pelo numero de dias de atraso. Mas neste programs 
pode-se calcular estes juros capitalizados dia-a-dia, da rrresma 
forma que renderiam caso se tivesse conseguido cobra-los no dia 
aprazado e aplicado no mercado financeiro (por exemplo no OVER). 

A formula utilizada e: 

J = P * (1 + l) N -1 
onde: 

j = Valor dos juros 
P = Principal (Valor da divida) 

I = Taxa de juros ao mes. 

N = Numero de dias de atraso. 

Este raciocmio tambem funciona de forma inversa, ou seja, 
supondo-se a condigao de devedor e tentando descobrir quanto 
se pode ganhar com o dinheiro dos seus credores. Sera a 
diferenga entre os juros resultantes da aplica^ao e o valor dos 
juros a serem pagos ao credor. 

Para produzir copia do programa, utilizam-se as duas ultimas linhas. 


--1 TetaH--1 


r 

-. 



CALCULO DE JUROS COMPOSTOS 

PARA 00000000 DIAS ? 




TAXA DE JUROS AO MES? 

00000000 



CAPITAL? 

00000000 



VALOR DOS JUROS EH 

00000000 



CGNTINUA? IS/N) 




V -—- 

> 
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Listage m 


5 REM JUROS DE ATRASO COMPOSTO 

10 REM AUTOR: LOURIVAL KARSTEN 

20 CLS 

22 PRINT "CALCULO DE JUROS COMPOSTOS" 

23 PRINT “PARA DIAS?" 

25 INPUT N 

30 PRINT AT 1,8; N 

40 PRINT AT 5,0; “TAXA DE JUROS AO MES?" 
45 INPUT I 
50 PRINT AT 5,23; I 
55 PRINT AT 7,0; "CAPITAL?" 

60 INPUT P 
65 PRINT AT 7,23; P 

67 LET I = |/100 

68 LET N = N/30 


70 LET J = P* ({( 1 + |)**N) - 1} 

75 PRINT AT 9,0; "VALOR DOS JUROS EH"; AT 9 23- J 
80 PRINT AT 11,0; "CONTINUA? (S/N)" 

85 INPUT Z§ 

90 IF Z$ = "S" THEN GOTO 20 
95 STOP 

100 SAVE "ATRASO" 

105 RUN 


Opcao 


entre 


Pagamentos 



Muitas vezes ocorrem algumas incognitas do tipo: O que e mais 
racional, pagar a vista Cr$ X ou pagar daqui a N meses Cr» Y? 

Esta pergunta pode ser facilmente respondida pelo programa aqui 
apresentado. 

A formula utilizada para calcular os valores e: 

S = P * (1 + n N 


onde: 

S = Valor futuro do pagamento a vista. 

P = Valor a pagar ho]e. 

I = Taxa de atratividade 

N = Numero de meses para o pagamento futuro. 

Para produzir copia do programa em fita, poderao ser utilizadas as 
duas ultimas linhas do mesmo. 


___ Teia | - 

GANHAREI PAGANDO HOJE OU DAQUI A MESES? 
DEBITO HOJE = 

DEBITO FUTURO = 

DAQUI A ??? MESES = 

JUROS DE ? 0/0 AO MES = 00 

VOCE ESTARAH X_X 

VALOR HOJE = CRS 00000000 
DAQUI A 0000 MESES 


A 


00000000 

00000000 

00 




Listagem 


5 REM 
10 REM 
15 PRINT 
20 PRINT 
25 INPUT 
30 PRINT 
35 PRINT 
40 INPUT 
45 PRINT 
50 PRINT 
55 INPUT 
60 PRINT 
65 PRINT 
70 INPUT 
75 PRINT 
80 LET 
85 LET 
90 PRINT 
95 IF 
100 IF 
105 IF 
110 PRINT 
115 STOP 
120 SAVE 
125 RUN 


OPCAO ENTRE PAGAMENTOS 
AUTOR: LOU RIVAL KARSTEN 
"GANHAREI PAGANDO HOJE OU DAQUIA 
AT2,0; "DEBITO HOJE = " 

A 

AT 2,23; A 

AT 4,0; "DEBITO FUTURO =" 

C 

AT 4,23; C 

AT 6,0; "DAQUI A ??? MESES" 

B 

AT 6,23; B 

AT 8,0; "JUROS DE ? 0/0 AO MES" 

D 

AT 8,23; D 
D = D/100 
T = ((1 + D)**B)*A 
AT 10,0; "VOCE ESTARA"; 

T > C THEN PRINT "PERDENDO" 

T = C THEN PRINT "EMPATANDO" 

T < C THEN PRINT "GANHANDO" 
"VALOR HOJE = CR$ T, " DAQUI A ";B; 

"OPCAO" 


MESES?" 


MESES" 




Energia _| 

Este programa permite a conversao de diversas medidas de 
corrente eletrica entre si. 

Na tela 1 pode-se ver urn menu que permite a escolha de diversas 
opgoes. 

Cada uma destas opgoes pode ser acessada, digitando-se o 
numero que precede a mesma na tela. 

. OBO aD Q 5 a tela 1, pode-se observar a mensagem gerada por cada 
uma deTas opgoesque pede informagoes e fornece o resultado. 

Apos ter side acessada qualquer das retinas oferecidas pelo 
programa e o resultado calculado, o mesmo permanecer* na tela 
porllguns segundos, retornando logo apos a tela 1 para uma 
nova escolha. 

Para produzir uma copia do programa em fita poderao ser 
utilizadas as duas Oltimas linhas de instrugoes do programa, 
escritas para tal finalidade. 
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Rotina 1 : HP mmm 

kw= mmm 

Rotina 2 : KW mmm 

hp= mmm 

Rotina 3 • KW mmm 

watts = mmm 

Rotina 4: VOLT mmm 

amp mmm 

watts mmm 

Rotina 5 : WATTS mmm 

amp mmm 

volt mmm 

Rotina 6 : WATTS mmm 

volt mmm 

amp mmm 



5 REM 

10 REM 

11 GOTO 

12 PAUSE 

13 CLS 
15 PRINT 
20 PRINT 
25 PRINT 
30 PRINT 
40 PRINT 
45 PRINT 
50 PRINT 
55 PRINT 
60 INPUT 
65 IF 

70 IF 


ENERGIA 

AUTOR: LOURIVAL KARSTEN 

13 

430 

"TRANSFORMAR:" 

"(1)HP EM KW" 

"(2}KW EM HP" 

"(3)KW EM WATTS" 

"(4)WATTS SABENDO VOLT E AMP' 
"(5)V0LT SABENDO WATTS E AMP' 
"(6)AMP SABENDO WATTS E VOLT' 
"(0)FIM" 

A 

A > 6 OR A < 0 THEN GOTO 60 
A = 0 THEN GOTO 205 



75 CLS 

80 GOTO 

(A * 20) + 70 

90 PRINT 

"HP16"; 

95 INPUT 

B 

96 PRINT 

B 

100 PRINT 

"KW="; B * .7457 

105 GOTO 

12 

110 PRINT 

"KW"; 

115 INPUT 

B 

116 PRINT 

B 

120 PRINT 

"HP= B * 1.342 

125 GOTO 

12 

130 PRINT 

"KW"; 

135 INPUT 

B 

136 PRINT 

B 

140 PRINT 

"WATTS = ; B * 1000 

145 GOTO 

12 

150 PRINT 

"VOLT"; 

152 INPUT 

B 

153 PRINT 

B 

154 PRINT 

"AMP 

• 156 INPUT 

C 

157 PRINT 

C 

158 PRINT 

"WATTS B * C 

160 GOTO 

12 

170 PRINT 

"WATTS 

172 INPUT 

B 

173 PRINT 

B 

174 PRINT 

"AMP 

176 INPUT 

C 

177 PRINT 

C 

178 PRINT 

"VOLT"; B/C 

180 GOTO 

12 

190 PRINT 

"WATTS"; 

192 INPUT 

B 

193 PRINT 

B 

194 PRINT 

"VOLT"; 

196 INPUT 

C 

197 PRINT 

C 







Medidas de Potencia 

Este programa calcula a potencia necessaria para executar uma 
tarefa dada, expressando-a em KGM/S, WATTS e HP. 

Formulas utilizadas: 

F * D 

KGM/S - j * 50 

WATTS = KGM/S * 9.81 
KGM/S 

HP " 75 

onde: 

F = Forga em KG 
D = Distancia em metros 
T = Tempo em minutos. 

Para maiores detalhes, vide tela anexa. 

Para copia do programa em fita, utilizam-se as duas ultimas iinhas 
do mesmo. 


Tela 


FORCA? I KG) 

00000000 

DISTANCIA? (METROS) 
00000000 

TEMPO? (MINUTOS) 


KGM/S 
00000000 WATTS 

HP 


OUTRO CALCULO? (S/N) 



Li stage m 




Logaritmo 






O nosso micro nao calcula diretamente nenhum logaritmo, a nao 
ser o logaritmo natural ou neperiano. 

Para se conseguir calcular o logaritmo de qualquer numero em 
qualquer base, deve-se recorrer a uma das propriedades do 
logaritmos: 

TEOREMA: "A razao entre os logaritmos de urn numero, 
considerados em dois sistemas diferentes, e uma constante „ 
denominada modulo de urn dos sistemas em rela?ao ao outro. 

Dai chega-se a formula: 

logb N --X log a N 

>og a b 

Para simplificar o seu uso, quando se precisar de logaritmos em 
qualquer base, utiliza-se o programa anexo que pode ser usado 
como sub-rotina. 


Listagem ■ 


10 REM 

CALCULO DE LOGARITMO DE QUALQUER NUMERO 
EM QUALQUER BASE 

12 REM 

AUTOR: LOU RIVAL KARSTEN 

15 PRINT 

"QUAL EH A BASE?" 

20 INPUT 

A 

25 PRINT 

"BASE = A"; A 

30 PRINT 

"QUAL EH 0 NUMERO?" 

35 INPUT 

B 

40 PRIN 

"NUMERO = B 

45 LET 

S = (1/LNA)*LNB 

50 PRINT 

"O LOGARITMO DE”;B, "NA BASE”;A,"EH"; S 

55 PAUSE 

200 

60 CLS 


65 GOTO 

15 

70 SAVE 

75 RUN 

"LOGARITMO" 
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Arranjos 




Embora a sua aplica^ao nao seja muito grande, os arranjos tern 
uma funcao importante nos calculos de eventos estatfsticos. 

Este programa permite o calculo dos arranjos possfveis a partir de 
quantidades informadas. 

A formula utilizada e a classica: 


onde: 

n = numero de elementos 
p = tornados "p" a "p" 

O programa exibe uma tela (vide anexo), onde aparece uma 
pergunta que deve ser respondida digitando-se o numero de 
elementos e logo apos pede o numero de elementos de cada 
arranjo. 

Para copiar o programa em fita podem ser utilizadas as duas 
ultimas linhas do mesmo. 


4 Tela 1 



ARRANJOS COM ??? ELEMENTOS 
00000000 

TOMADOS "P" A "P" 

00000000 

COM 00000000 ELEMENTOS 
TOMADOS 0000 A 0000 
FORMAMOS 00000000 ARRANJOS 
CONTINUA (S/N)? 


^ --- ) 







r 

Listagem 

J 

kr- m 

5 REM 

arranjos 


10 REM 

15 CLS 

AUTOR: LOURIVAL KARSTEN 


20 PRINT 

“ARRANJOS COM ??? ELEMENTOS?” 


25 INPUT 

N 


30 PRINT 
32 PRINT 

N 


35 PRINT 

“TOMADOS "T" A " 


40 INPUT 

B 


45 PRINT 

B 


50 LET 

Z = N-B 


55 FOR 

X - Z TO 2 STEP -1 


60 LET 

Z = Z* (X -1) 


65 NEXT 
70 PRINT 

X 


75 PRINT 

“COM N; “ ELEMENTOS" 


80 PRINT 

“TOMADOS “; B; " A “; B 


85 PRINT 
90 PRINT 

“FORMAMOS Z; “ ARRANJOS" 


95 PRINT 

“CONTINUA (S/N)?" 


100 INPUT 

ZS 


105 IF 

Z$ = “S" THEN GOTO 15 


110 STOP 



115 SAVE 

“ARRANJOS" 
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120 RUN 





Experiences 





Uma das maiores vantagens de se ter urn micro e poder dar asas a 
imaginagao. 

Um pequeno programs como o que vem a seguir pode ser usado 
com inumeras variagoes, sempre produzindo padroes graficos na 
tela. 

Este exercfcio de criatividade pode ser particularmente 
estimulante para "designers", modistas etc., notadamente para 
projetar padroes de tecidos. 

Vamos ao programs: 


5 INPUT 

N 

6 LET 

N = N/100 

10 FOR 

1 = 0 TO 63 

20 FOR 

R = N TO 1 STEP N/2 

30 LET 

X = (1/63 + 6.28) 

40 LET 

Y = 43-42?SIN(X) 

50 PLOT 

1, Y* R 

60 NEXT 

R 

70 NEXT 

1 


Comegam-se as experiences introduzindo o numero 70 
Aparecera apenas uma linha na tela. 

Agora, digita-se um numero menor. Aparecerao cada vez mais 
retas na tela com numeros cada vez menores. Em numeros bem 
pequenos podem-se produzir belos padroes de listado. Mas como 
o objetivo e fazer experiences entao modifica-se a linha 30 para: 
30 LET X = (1/63 + 6.28) 

O desehho mudara radicalmente. 

Neste programs, podera ser modificada a linha 20, mudando o 
.... STEP N/3 para ... STEP N, ... STEP N/3 e assim por diante. 

Esta modificagao provocara o aumento ou diminui^ao do numero 
de listas para cada constante. 


A linha 40 podera ser modificada, alterando-se para: 

40 LET Y = 43 - 40 * SIN (X) ou 
40 LET Y = 43 - 15 * SIN (X), etc... 

assim como: 

40 LET Y = 43 - 20 * COS(X), ou qualquer outro valor para a 
subtra^ao. 

Na linha 30 pode-se modificar o valor a ser somado ao valor de 
1/63, como tambem ainda utilizar Lima subtragao no lugar de 

soma. 

Como se pode observar, sao possiveis inumeras combinagoes e 
podera exercitar a criatividade a vontade. 

Boas experiencias ! 




Loto 


Nem so de seriedade vive o homern, portanto vamos aproveitar o 
micro e brincar com a sorte! (Voce acredita nela?) 

Se nao acred ita mujto, vamos ao programs a seguir que produz 
urn cartao com cinco prognosticos para a loto, portanto bem 
ba rat in ho. 

5 REM LOTO 

10 REM AUTOR: LOU RIVAL KARSTEN 

40 FOR X = 1 TO 5 

50 LET R = INT (RND * 100) 

60 PRINT AT INT(R/10),2 *(R-(INT(R/10) *101); R 
70 NEXT X 

80 PRINT AT 15,0; "OUTRO CARTAO? (S/N)" 

90 INPUT Z$ 

95CLS 

100 IF Z$ = "S" THEN GOTO 40 

110 STOP 

Agora, se leva bastante te na sorte e acha que hoje e o seu dia, 
altere o prog ram a introduzindo estas linhas: 

15 PRINT "QUANTAS DEZENAS?” 

20 INPUT A 

40 FOR X = 1 TO A 

Espero que ten ha muito exito mas, se nao for feliz, nao me culpe 
muito, por favor. 

Pode culpar o micro, o azar, a chuva, o sol etc.... 

BOA SORTE!!!... 
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_micro pode, certamente, fazer algo mais do que brincar com 

voce. Aprenda a eonversar com ele "de igua! para igual" e ele se trans- 




formara em um valioso i 


nto que colocara a sua disposipao pro- 
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gramas para analise e interpretapao de balanpos, manipulapao de estatfs- 
ticas e graficos, analises e cSIculos financeiros, avaliapao de prepos e 
fdrmulas (composipao de custos), analise do ponto de equ.lfbno e 
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outros, alem de aplicativos de uso pessoal. 
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Assim, esta 6 uma 




dedicada aos tecnicos e especialistas ligados i 

. .. 


administragao 


■ 
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... _ empresas que ate agora nao puderam usar eficazmente 

os micros, seja pela falta de conhecimentos em programapao, seja pela 
inexistencia de um software especffico para suas necessidades. 

Destinado aos micros da linha Sinclair, este livro apresenta, entretanto 
uma vasta documentapao que nao s6 permite a facil compreensao dos 
programas, mas tamb6m sua transposipao para outros tipos de micro, 
uma vez que incorporam um minimo de mstrugoes especificas. 
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